请问各位大侠，怎样实现把数据库中的数据自动保存到EXECL中(200分)

用DELPHI5.0中自带的控件可以吗

可以用F1book控件试一下

可以用delphi5中server下的控件，TExcelApplication,Texcelworkbook,Texcelworksheet
可以实现.

多谢，能不能说的详细点

我用delphi5中server下的控件，TExcelApplication,Texcelworkbook,Texcelworksheet
可以实现.把数据库中数据导入到Excel中，但比较复杂，请问有没快捷的方法。

引用COMOBJ单元

gz

存为DBF ，再用exec打开。
execwin( execle ,??.dbf);

给你贴一贴,这是我以前使用的例子.
EA1.Connect;
EA1.Visible[0]:=False;
EA1.Workbooks.Add(xlWBATWorkSheet,0);
asheet:=EA1.Worksheets.Item[1];
PrnQuery.First;
for i:=1 to PrnQuery.FieldCount do
asheet.cells[1,i].Value:=PrnQuery.Fields[i-1].DisplayName;
for i:=1 to PrnQuery.RecordCountdo
begin
for j:=1 to PrnQuery.FieldCountdo
asheet.Cells[i+1,j].Value:=PrnQuery.Fields[j-1].AsString;
Application.ProcessMessages;
PrnQuery.Next;
Label3.Caption:=IntToStr(i);
end;
end;
SaveDialog.Execute;
if SaveDialog.FileName<>'noname' then
begin
aSheet.SaveAs(SaveDialog.FileName);
ShowMessage('文件已保存為'+SaveDialog.FileName);
end;
aSheet.Application.Quit;
这是打开一个文件,上面是新增一个文件.
EA1.Workbooks.Open('C:/FV/order/order.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,1);

use advstringgrid, it has a function call SaveToXls

多谢个位,特别感谢zhangkan,我已经把问题解决了.