delphi 将DBGrid的数据导出到Excel

将  的数据导出到  文件保存

作者：来源：未知 日期：人气：标签：

导读： 将  的数据导出到  文件保存

近来一段时间忙的慌，接了个帮人升级系统的小单子。其中涉及到将  的数据转到

 文件并保存的功能，其实本身倒也不难。只是有些麻烦。想想这种功能，肯定有先人

已经写好的现成东西直接拿过来用就应该 ! 了。于是 ""# 一番，果然有很多类似的例

子代码，俺在盒子上找到了和俺的需求相近的一个代码  这个代码。他那个写

的确实不错，但是有些地方也还是不能尽如人意的哈，于是就在他的代码上修改了下，同

参数：

 指定表格

() 指定要保存的文件名

*+#,"-$"./ 指定一页最多的支持行数

0"-+"#11指定是否显示进度条

用法：

0231%45$61545表测试54'7

&'

".0231%87"1/()49/1/#7

"1/*+#,"-$"./:/#;7"1/0"-+"#11"";8.'7

$.+"18""AA7

+"#11("8("7

+"/8B7

"#118+"#117

+8+7

.C"8.C"7

".,0/ D2/% 2/3"/7)-2/>."/7,0/ D/8 D/'7

#

8*/"% 2/3E'$";)-2/>.7

8*/"% 2/3E'/;,0/ D/7