背景:今天要把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;
1