急！！！TQUERY的数据怎样用execel打印出来？

[xywu]

如何把 TQUERY查询的数据用execel打印出来，
我知道是用server下的Execel组件，但不知道具体是哪个空间，
能不能说详细点，最好给点代码。
感谢万分！！！

[lytofly]

你可以先看一下VBA for Execl
然后结合delphi
ExcelApplication1是执行，打开Execl的控件

[dongxsoft]

用ExcelApplication,ExcelWorkbook,ExcelWorksheet导出

[dongxsoft]

也可这种方法
var
i:integer;
str:String;
StrList:TStringList;
begin
try
with Table1 do
begin
First;
DisableControls;
while not EOF do
begin
str:=';
for i:=0 to FieldCount-1 do
begin
str:=str+Fields[i].AsString+#19;
StrList.Add(str);
Next;
end;
StrList.SaveToFile('d:\a.xls');
EnableControls;
end
finally
StrList.free;
end;
end;