生成EXCEL文件 ( 积分: 100 )

怎样把报表文件生成为EXCEL格式的文件

你什么样的报表才行啊，好多报表控件其实都提供导出成EXCEL格式文件的功能的，不过如果不依靠报表控件，而是从数据集DataSet中的话，你可以参考一下这一段代码，用OLE来实现
procedure TOfficeform.Button2Click(Sender: TObject);
var
MSExcel:Variant;
i,j:Integer;
begin
SaveDialog1.Filter:='*.XLS|*.XLS';
SaveDialog1.DefaultExt:='XLS';
if SaveDialog1.Execute then
begin
MSExcel:=CreateOLEObject('Excel.Application');
MSExcel.WorkBooks.Add;
MSExcel.Visible:=False;
Table1.Open;
j:=Table1.RecordCount;
Table1.First;
for i:=1 to jdo
begin
MSExcel.Cells[i,1].NumberFormat:='@';
MSExcel.Cells[i,1].Value:=Table1.FieldByName('CODE').AsString;
MSExcel.Cells[i,2].Value:=Table1.FieldByName('COLOR').AsString;
Table1.Next;
end;
MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
MSExcel.ActiveWorkBook.Saved:=True;
MSExcel.Quit;
end;
end;