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;