delphi7中如何把数据库中数据保存为excel文件

如果我们对delphi中的通常打印报表控件使用感到不方便的时候，则可以选择：

把数据库中的数据先保存到excel文件中，这样用户既保存了文件，又可以很方便的打印。

控件：ADOConnection、ADOQuery、DataSource、SaveDialog、dxDBGrid

procedure TForm1.FormCreate(Sender: TObject);
var
sqlstr:string;
begin
sqlStr := 'select * from Table';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlStr);
ADOQuery1.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
eclApp,WorkBook:olevariant;
xlsFileName:string;
i,j:integer;
begin

if SaveDialog1.Execute then
xlsFileName:=SaveDialog1.FileName;

try
eclApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleObject('Excel.Sheet');
except
Application.MessageBox('系统没有安装Microsoft Excel','Microsoft Excel',MB_OK+MB_ICONWarning);
Exit;
end;

try
WorkBook:=eclApp.workbooks.Add;
for i:=0 to dxDBGrid1.ColumnCount-1 do
begin
//这里可以更改列名，用if ... then进行判断和指定列名
eclApp.Cells(1,i+1):=dxDBGrid1.Columns[i].FieldName;
end;

dxDBGrid1.DataSource.DataSet.First;
j:=2;
while not dxDBGrid1.DataSource.DataSet.Eof do
begin
//for i:=0 to dxDBGrid1.DataSource.DataSet.FieldCount-1 do 2,3,5
{
for i:=0 to dxDBGrid1.ColumnCount-1 do
begin
eclApp.Cells(j,i+1):=dxDBGrid1.DataSource.DataSet.Fields[i].Value;
end;
}
eclApp.Cells(j,1):=dxDBGrid1.DataSource.DataSet.Fields[2].Value;
eclApp.Cells(j,2):=dxDBGrid1.DataSource.DataSet.Fields[3].Value;
eclApp.Cells(j,3):=dxDBGrid1.DataSource.DataSet.Fields[5].Value;

dxDBGrid1.DataSource.DataSet.Next;
inc(j);
end;

WorkBook.SaveAS(xlsFileName);
WorkBook.close;
except
ShowMessage('文件导出失败！');
Exit;
end;

Application.MessageBox('保存成功!','恭喜',MB_OK + MB_ICONINFORMATION);
end;

测试：1426条记录，<15s VS MFC下面 <10s，这个时间，用户应该是可以接受的吧？