下载 > 资源分类 >  开发技术 >  Delphi > Delphi快速导出数据到Excel

Delphi快速导出数据到Excel

2008-01-07 上传大小:5KB
背景:今天要把DataSet导入Excel,查询以前的贴子,一部分用Ole,速度太慢,<br>          一部分用ADO连接到Excel文件,也很慢,一气之下把DBGrigEh的导出部分改了出来,<br>          欢迎大家指教、改进。<br>    功能:将数据集的数据导入Excel;<br>    用法:With ExportXl
s.Create(TDataSet(ADOQuery1)) do<br>          Try<br>            Save2File(SaveDialog1.FileName, True);<br>          finally<br>            Free;<br>          end;<br>    作者:Caidao (核心代码来自Ehlib)<br>    时间:2003-04-09<br>    地点:汕头<br><br>我演测试的代码:<br>特点:<br>一、不需安装Excel即可导出。<br>三、最多可以导出多少条,我没试,我试了5万条没有问题,时间也就是只需1-5分钟(我电脑较慢)。<br><br>使用方法(注:别忘了uses DBGridToExcel;):<br>procedure TForm1.btn7Click(Sender: TObject);<br>begin<br>  With ExportXls.Create(dbgrd1.DataSource.DataSet) do<br>  Try<br>     dlgSave1.DefaultExt := '.xls';<br>     dlgSave1.Filter := 'Microsoft Excel 文件|*.xls';<br>    if dlgSave1.Execute then<br>    begin<br>      Save2File(dlgSave1.FileName, True);<br>    end;<br>  finally<br>    Free;<br>  end;<br>end;
...展开收缩
综合评分:4(81位用户评分)
开通VIP C币充值 立即下载

评论共有31条

name
anbangs2016-05-14 15:24:17
谢谢,学习了
name
dengwd2016-04-10 13:13:41
有用!值得学习
name
husf2016-03-14 16:24:55
很不错,值得学习
name
mydsc2015-06-24 10:21:57
比较全面详细,有借鉴
name
zgwu2014-11-24 18:04:38
果然不错,满足了我的要求,谢谢!
name
youlinglp_2014-11-07 09:52:19
还要研究一下,看能否应用到,谢谢
name
levy_rao2014-09-21 15:20:18
不错,很实用的例子,学习了
name
zxd8632014-09-13 11:30:59
可以用的,相当不错。
name
cacain2014-07-31 07:37:33
很好,借鉴下。
name
blackdog20102014-05-30 08:49:12
学delphi的好帮手

评论资源

您不能发表评论,可能是以下原因:

登录后才能评论

待评论资源
 

热门专辑

开发技术热门标签

VIP会员动态

关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
确认下载
img

Delphi快速导出数据到Excel

会员到期时间: 剩余下载个数: 剩余C币:593 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
(仅够下载10个资源)
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
C币充值 开通VIP
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可奖励20下载分

  • 举报人:
  • 被举报人:
  • 举报的资源分:
  • *类型:
  • *详细原因: