【文件属性】:
文件名称: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;
网友评论
- 下载了,试了下不错
- 很好的资源,导出很快
- 确实快很多,非常感谢
- 有用,速度很快,已经用在自己做的项目里了,谢谢
- 确实快很多,非常感谢
- 谢谢,学习了
- 有用!值得学习
- 很不错,值得学习
- 比较全面详细,有借鉴
- 果然不错,满足了我的要求,谢谢!
- 还要研究一下,看能否应用到,谢谢
- 不错,很实用的例子,学习了
- 可以用的,相当不错。
- 很好,借鉴下。
- 学delphi的好帮手
- 能用,我已应用到项目中
- 快是很快,但是生成的EXCEL也和大哦。比我用别的方法写的大很多,而且不知道是不是2007的问题,导出来提示文件已经损坏。我回头在公司的别的电脑在试试。
- 虽然没用楼主的方法,但是很有启发~
- 学习了,不过最后使用了另外一种方法。
- 怎么导出后全部是乱码呢
- 很好,在学习delphi,谢谢分享!!
- 这个是真的用得到的好材料
- 这个是真的用得到的好材料
- 是個很好的模板,借鑑下
- 这个是真的用得到的好材料
- 很好,很实用,导出数据速度快!
- 很全面,谢谢分享
- 很全面,谢谢分享
- 很不错的代码,只是需要修改后才可以使用,基本满足需要
- 不错,可以用,就是导出后的EXcel文件版本低一些