Delphi生成EXECL2000的表格时怎样合并单元格？(25分)

W

wolf_zj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-28

• #1

因为是不规则报表，所以要把前面的部分单元格进行合并，不知怎么做，请高手指点！

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-28

• #2

var
aSheet: variant;
....
aSheet := ExcelApplication1.Worksheets.Item[1];
aSheet.Range['A1', 'B2'].MergeCells := True;
//设置合并
...

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-28

• #3

myexcel:OleVariant;
myexcel := GetActiveOleObject('Excel.Application');
myexcel.Range['A1','C$'].Merge(false);
多录制宏，然后察看源代码，VB的，试着转成delphi的。

 

Z

zhangxzh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-28

• #4

Delphi中的 Formula One 是个不错的控件,它的应用在 网址 http://zhangxzh.diy.163.com
上有个demo 下载安装,看看里面用F1book制作的各种复杂的不规则报表!,右键菜单能很容易的保存为Excel文件.