自己摸索的在DELPHI中把数据导到EXCEL中,就这么简单。
这个问题一直困扰着我,在这里求救了N遍不是一些不痛不痒的就是太高深我根本不懂的。算了还是自己搞,翻了一些资料,自己搞成的,代码如下,很简单,基本上是一个示范。
var i,j : integer;
begin
adoquery1.Open; //连接数据库,这里只演示SQL我先写进去了
ea1 := texcelapplication.Create(self); //excelapplication1
ew1 := texcelworkbook.Create(self); //excelworkbook1
ews1 := texcelworksheet.Create(self); //excelworksheet1
ea1.Connect;
ea1.Workbooks.Add(null,0);
ew1.ConnectTo(ea1.Workbooks[1]);
ews1.ConnectTo(ew1.Sheets[1]as _worksheet);
if adoquery1.RecordCount > 0 then
begin
i:= 0;
while not adoquery1.Eof
do
begin
for j:=0 to adoquery1.FieldCount-1
do
begin
ews1.Cells.Item[i+1,j+1]:= adoquery1.Fields[j].AsString;
end;
i:= i+1;
adoquery1.Next;
end;
end;
ew1.SaveCopyAs('e:\temp.xls');//保存EXCEL这里你也可以自己写更多
//最后注意这里要把excelapplication,excelworkbook,excelworksheet
//关闭掉,怎么关?这个自己摸摸吧。不写的话要看到EXCEL表最好把机器注销一下
//这里只是一个示例你还可以在里面加入写表头的代码等其他功能。
end;
抛砖引玉!请高手指点!