Delphi快速导出数据到Excel

【文件属性】：

文件名称：Delphi快速导出数据到Excel

文件大小：5KB

文件格式：PAS

更新时间：2011-01-27 11:17:05

导出excel

背景：今天要把DataSet导入Excel，查询以前的贴子，一部分用Ole，速度太慢，
一部分用ADO连接到Excel文件，也很慢，一气之下把DBGrigEh的导出部分改了出来，
欢迎大家指教、改进。
功能：将数据集的数据导入Excel;
用法：With ExportXls.Create(TDataSet(ADOQuery1)) do
Try
Save2File(SaveDialog1.FileName, True);
finally
Free;
end;
作者：Caidao (核心代码来自Ehlib)
时间：2003-04-09
地点：汕头

我演测试的代码：
特点：
一、不需安装Excel即可导出。
三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。

使用方法(注：别忘了uses DBGridToExcel;)：
procedure TForm1.btn7Click(Sender: TObject);
begin
With ExportXls.Create(dbgrd1.DataSource.DataSet) do
Try
dlgSave1.DefaultExt := '.xls';
dlgSave1.Filter := 'Microsoft Excel 文件|*.xls';
if dlgSave1.Execute then
begin
Save2File(dlgSave1.FileName, True);
end;
finally
Free;
end;
end;