用Excel做报表 ( 积分: 100 )

急求！！各位大虾请在delphi如何用Excel做报表。如果有一个例子最好了，我的邮箱是
aclove333@163.com，有多多的分加，谢谢。

急求！！各位大虾请在delphi如何用Excel做报表。如果有一个例子最好了，我的邮箱是
aclove333@163.com，有多多的分加，谢谢。

我已給你發過去了一份.請查收(zxy666666@hotmail.com)

我都想要一份,,邮箱是where_123@yahoo.com.cn

可以的話。請往hxh3396815@163.com投一份。多謝！！！

ok

可以的話。請往qiuzhidong_39@163.com多投一份。多謝多谢！！！

use comobj,clipbrd;
var exapp,exbook,exsheet:variant;
clp:tclipboard;
n:integer;
//dataset:数据集控件
begin
clp:=tclipboard.create;
clp.astext:='报表名称';
clp.astext:=clp.astext+#13+'标题1'+#9+'标题2'+#9+'标题3'...
while not dataset.eofdo
begin
clp.astext:=clp.astext+#13+dataset.fields[0].asstring+#9+dataset.fields [1].asstring+#9+...
dataset.next;
end;
exapp:=createoleobject('excel.application');
exbook:=exapp.workbooks.add;
exsheet:=exapp.activesheet;
exsheet.paste;
exapp.visible:=true;
exsheet.cells[1,1].font.size:=18;
exsheet.range['a1'].select;
exsheet.range['a1','g'+inttostr(n+3)].borders.style:=1;
exsheet:=unassigned;
exbook:=unassigned;
exapp:=unassigned;
end;

我都想要一份,先谢谢了。
oldcat99@163.com

接受答案了.