Delphi快速导出数据到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;