打造最快的DBGridToExcel之预告：）

最新推荐文章于 2015-01-04 10:22:16 发布
最新推荐文章于 2015-01-04 10:22:16 发布
阅读量1.1k 收藏
点赞数
文章标签： excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lvjack/article/details/597296
版权

呵呵，在参考网上的众多资料并就部分问题请教了妖哥（www.ccrun.com）后基本上完成了DBGrid导出到Excel文件的代码，希望能是OLE操作方法中最快的。

先自己happy一下，代码整理好之后发上来。

参考的部分资料：
https://www.microsoft.com/china/msdn/archives/library/dnofftalk/html/office10032002.asp
http://www.delphibbs.com/delphibbs/dispq.asp?lid=114319
http://www.swissdelphicenter.ch/en/showcode.php?id=998
www.ccrun.com

其它以后可能有用的资料：
http://www.netscum.dk/china/msdn/archives/technic/tips/msword.asp

lvjack
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
将DBGrid中的数据快速导出到Excel的控件
01-07
发布原因：在网上找了很久也没找到个好用的，不是慢，就是要依赖Excel(必须按装),又找呀找，才找到一个http://blog.csdn.net/xiangding/archive/2003/10/27/16918.aspx,但试了一下，不能用，不知是我用法不对还是本身有问题（由于没有给出使用示例），后来找到http://developer.51cto.com/art/200510/7494.htm这个不错，但他又让我装ehlid,不爽，所以对其做了修改，其它也就是去了个加页脚的地方，很爽，有进度条，导完后如果按安装了Excel则直接打开，如果没有的话就不管了，自已想办法打开吧！特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、不需安装组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn1Click(Sender: TObject);var DBGridToExcel: TDBGridToExcel; ExcelFileName: string;begin DBGridToExcel := TDBGridToExcel.Create(nil); try DBGridToExcel.TitleName := '入网车辆统计报表'; DBGridToExcel.BeginDate := '开始日期：2005-07-01'; DBGridToExcel.EndDate := '结束日期：2005-07-18'; DBGridToExcel.UserName := '系统管理员'; DBGridToExcel.DBGrid := dbgrd1; DBGridToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridToExcel.Open := False; DBGridToExcel.ExportToExcel; finally DBGridToExcel.Free; end;end;
DbGridToExcel
10-19
c++builder将DBGrid中的数据导出到word和excel中
DbgridToExcell
Steven_xg的专栏
06-18 585
function TDataModule1.DbgridToExcell(DBGrid: TDBGrid; FileName: string;  TitleLst: TStringList): boolean;var   i,j,Col,cntTitle:integer;   EParam:OleVariant;   DocuType:Olevariant;   wkbk:
DbGridToExcel(Delphi)
故纸堆
01-04 1540
procedure TFrm_func.DbGridToExcel(ADg: TDBGrid); var   xlApp, xlSheet, szValue: Variant;   ARow, iLoop: word;   FSaveDialog: TSaveDialog; begin   if ADg.DataSource.DataSet.IsEmpty then   begin
Iocomp.Components.v4.00 sp2 for rad 2010
07-09
该控件源码包是在www.ccrun.com下载的Iocomp.Components.v4.00.SP2.Delphi4~7,9~11.CBuilder5~6,10~11软件 基础上修改了部分工程文件 使之能直接在rad 2010上安装使用， 请解压缩到英文名目录里, 在CBuilder2010中打开工程cpp2010.cbproj编译安装, 安装过程中如果提示找不到xx文件请在debug或release下的的包含目录手动指定需要文件的目录, 该控件在update4版本测试通过, 该软件，只供学习交流只要，入需其他用途请购买正版！
打造最快xp系统的工具
11-29
标题中的“打造最快XP系统的工具”指的是通过特定的软件或方法优化Windows XP操作系统，使其运行速度得到显著提升。XP系统是微软在2001年发布的一款经典操作系统，虽然已经停止官方支持，但在某些领域仍有用户在使用...
打造用户喜欢产品的关键：鼓励用户参与其中
01-31
打造产品应该尽量简单易用，这是科技圈遵循不变的原则。设计思维的兴起（以iPhone这样以设计取胜的案例可以说明这一点）开始让人觉得，开发一个漂亮的界面就是优秀设计的标志。不过，和所有企图为人类科技互动方式...
PCB行业报告:智能制造打造未来之匙
03-24
主要由绝缘基材与导体两类材料构成，在电子设备中起到支撑、互连的作用。集成电路与电阻、电容等电子元件作为个体无法发挥...作为“电子产品之母”，成长则体现在下游层出不穷的电子创新应用，5G、汽车、半导体、消费电
美图经验：基于DevOps打造高效运维团队
02-24
我今天分享的主题是“基于DevOps打造高效运维团队”。分享的主题主要四个方面：第一，讲一下美图DevOps的实践；第二，从关注效能的角度讲如何打造高效的运维团队；第三，持续集成实践；第四，如何做好监控体
周鸿祎：打造“互联网思维”头脑风暴.pdf
最新发布
11-17
周鸿祎：打造“互联网思维”头脑风暴.pdf
技术人管理之路：打造高效团队的策略
"《团队建设-知行：技术人的管理之路》是一本结合实践经验与理论探讨的书籍，针对技术背景人员的管理成长提供了深入指南。作者是一位有着丰富背景的专家，包括前百度最佳经理人、清华大学EMBA及多项专业教练资格，...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值