delphi控制excel表格中的边框线可见代码怎么写啊？

Question

range.borders.linestyle:= ？？？？ 如果能把合并单元格的代码也给出来那就更好了 ^_^

Answer 1

Anylib推出新版本，自由界面和报表的完美组合！
http://www.anylib.com

Answer 2

range.borders.linestyle:=1;//华线
range:=asheet.range[asheet.cells[1,1],asheet.cells[1,2]];
range.merge;//合并居中

Answer 3

procedure lineStylecontrol;       //合并表格
var
v,sheet,range:variant;
begin
v :=createExcel;
sheet := v.workbooks[1].sheets[1];
range :=sheet.range[sheet.cells[1,3],sheet.cells[2,8]]; //选定表格
range.select;
range.merge; //合并单元格
range.font.size:=18; //改变表格内文本字体大小
range.font.name:='楷体_GB2312';
range.font.bold := True;
range.borders.linestyle:=1;//华线
end;
为什么合并单元格时里面的文字居中不了呢？

Answer 4

SORRY
range.merge;
range.HorizontalAlignment:=xlCenter;