用delphi6中的quickreport做的报表如何能保存成excel文件呢?这个急死拉 ( 积分: 30 )

各位大虾，我用quickreport做的报表不知如何保存成excel，
都快急死拉，想问一下各位

将连接Quickreport的Query的数据倒入到excel中
try
if Savedialog2.Execute then
begin
filename :=savedialog2.filename;
MsExcel:=Createoleobject('Excel.application');
msexcel.visible:=false;
// Msexcel.workbooks.Open(filename,false);
Msexcel.workbooks.add;
//end;
for n:=0 to Form1.ADOQuery1.FieldCount-1do
Msexcel.cells[1,n+1].value:=Form1.ADOQuery1.Fields[n].DisplayLabel;
Form1.ADOQuery1.First;
m:=2;
//showmessage(Adoquery1.fieldvalues[1]);
while not Form1.ADOQuery1.Eofdo
begin
for i:=0 to Form1.ADOQuery1.FieldCount-1do
begin
Exc:=Form1.ADOQuery1.Fields.AsString;
Msexcel.cells[m,i+1].value:=Exc;//Adoquery1.FieldByName.AsString;
end;

Form1.ADOQuery1.next;//quotedstr(Adoquery1.FieldValues[1]);
Inc(m);
end;

Msexcel.activeworkbook.saveas(savedialog2.filename);
//Msexcel.activebook.saved:=true;
Msexcel.quit;
Application.MessageBox('导出完毕!','提示',MB_ok or Mb_Iconinformation);
end;

except
on E:Exceptiondo
ShowMessage(E.Message);
end;

flyerer1：
我不仅要把数据存成还有标题啊什么的，可是query中又没有那些个标题。

这个报表控件的新版本中可以放入几个相关控件。在报表保存的对话框中就出现保存为excel、图片或word什么的。你试一下。

humanc2d4：
好的，谢谢你啊，我去找一下，humanc2d4你那有这个最新版吗？是在哪下的呢？