Ehlib导出至excel时的问题

最新推荐文章于 2021-02-02 22:32:03 发布
最新推荐文章于 2021-02-02 22:32:03 发布
阅读量1.2k 收藏 1
点赞数
分类专栏： delphi 文章标签： excel 数据库
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yuehaiyang/article/details/6104011
版权

程序中有这样一个功能，可以将当前表格中的数据导出至excel格式，针对这个功能，我是调用ehlib中的SaveDBGridEhToExportFile这个函数的，比较简单。但是，后来客户反映说导出来的数据有一列看不懂，我查找了原因，原来这一列在数据库中是数值型的字段，而dbgrid中显示的是经过加工过的字符型数据，在导出时由于ehlib判断了字段类型，所以俺数字型导出，因此客户肯定是看不懂了。

 

后来，我跟踪，调试，发现DBGridEhImpExp.pas中的TDBGridEhExportAsXLS.WriteDataCell这个函数负责导出excel时写单元格内容的，所以我就改了这个函数，将ftInteger这个类型去掉，不进行判断，直接将界面显示的内容写进单元格。

 

重新编译程序，导出，OK

yuehaiyang
关注
专栏目录
DbgridEh数据导出到Excel的方法(Delphi)
故纸堆
12-31 8375
本文内容严重参考了网上其他牛人的代码，并做了一些修改，使得参数更加简单，结构更清晰，所以就厚着脸皮说是原创。 procedure TFrm_func.DbGridEhToExcel(ADgEh: TDBGridEh); var   ExpClass: TDBGridEhExportclass;   Ext: string;   FSaveDialog: TSaveDialog; beg
比较快速的将DBGridEh中的数据导出到Excel中
01-07
特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、需安装ehlib组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn2Click(Sender: TObject);var DBGridEhToExcel: TDBGridEhToExcel; ExcelFileName: string;begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil); try DBGridEhToExcel.TitleName := '导出测试'; DBGridEhToExcel.BeginDate := '开始日期：2005-07-01'; DBGridEhToExcel.EndDate := '结束日期：2005-07-18'; DBGridEhToExcel.UserName := '系统管理员'; DBGridEhToExcel.DBGridEh := DBGridEh1; DBGridEhToExcel.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; DBGridEhToExcel.ExportToExcel; finally DBGridEhToExcel.Free; end;end;
Ehlib 的 DBGridEh 控件导出到Excel的三种封装过程/函数
wozengcong的专栏
09-10 2625
必须uses DBGridEhImpExp,  EhlibADO, DBGridEh 第一种： procedure TForm2.dbgridehtoexp(lsdbgrideh: tdbgrideh; Title: string); //lsdbgrideh传入dbgrideh变量；Title保存标题 var   ExpClass: TDBGridEhExportClass;
修正Ehlib在RAD2009下的导出Excel的问题
编程手札
04-13 1284
TDBGridEh在D2009下导出的Excel文件打不开，今天把问题修正了，问题出在TDBGridEhExportAsXLS.WriteStringCell的函数上，把参数声明const AValue: string改成const AValue: AnsiString即可。另外，还发现移动邮箱的电子网盘原来并不支持Chrome浏览器的。
ehlib导出EXCEL 所见即所得
n29882942的专栏
12-25 1456
ehlib导出EXCEL 所见即所得
使用 Ehlib 将数据输出为 Excel，采用 TDataSetTextExporterEh
pcplayer的博客
02-02 438
要想输出数据，网上搜了一下和 Ehlib 有关的导出的文章，都是讲如何输出 DBGridEh 的内容的。 如果我只想输出一个 DataSet 的内容，没有 DBGridEh 怎么办？使用 TDataSetTextExporterEh. 拖一个 TDataSetTextExporterEh 过来到我的 DataModule 里面，就是DataSetTextExporterEh1 然后使用： DataSetTextExporterEh1.DataSet := ADataSet; //这个 ADat.
EHLIB_Dataexport.rar_EhLib_delphi excel_excel dbgrid_数据导出显示
07-14
应用Ehlib导出显示数据的源代码，一直以来delphi配合Ehlib是非常好的数据库编程排档，但是DBGRID输出到EXCEL等格式却是十分麻烦的事情。此代码应用EHLIB自身功能可直接输出各类排版格式。应用十分简单。
Delphi快速导出数据到Excel
01-07
作者：Caidao (核心代码来自Ehlib) 时间：2003-04-09 地点：汕头 <br>我演测试的代码： 特点： 一、不需安装Excel即可导出。 三、最多可以导出多少条，我没试，我试了5万条没有问题，时间...
EhLib 10.0.031 For Delphi 11
07-20
3. **报表设计**：EhLib拥有强大的报表设计工具，允许开发者创建复杂的报表布局，支持预览、打印和导出到多种格式（如PDF、HTML、Excel等）。这些报表组件能够处理大量的数据，并提供了自定义样式和格式化的选项。 ...
导出Excel 2007文件
05-20
它允许开发者在没有安装Microsoft Office的情况下，进行创建、编辑和导出Excel文件的工作。这个组件不依赖于任何微软的Office组件，因此在服务器环境或者无Office安装的环境中，Aspose.Cell是一个理想的选择。 在...
DBGridEh导出到EXCEL函数
10-04
DBGridEh导出到EXCEL函数，能导出多表头
DBGridEh多表头输出到Excel
01-13
最近有用到DBGridEh,但是多表头的输出一直是个问题,于是根据DisplayLabel自己写了个模块.因为时间的关系,算法一直没有精简,如果你有改进请发给我一份!EMail:wb_er@163.com
DBGridEh 导出 Excel
sinshow的专栏
10-11 931
第二种方法用第三方控件:Ehlib 的DBGridEh,它有个方法直接输出EXcel文件如下例,还有DevelopExpress的dxDBGrid控件也有个方法:SaveToXLS  int ExcuteCode;  TDBGridEhExportAsXLS *ExportAsXLS;  TMetaClass *test;  Variant my_excel,all_workbooks,m
DxDbGrid与DbGridEh表格使用及导出Excel
GavinPan的专栏
05-16 7166
DevExQuantumGrid v3.22 Pro for D7、EhLib 5.2.84的表格控件应用
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值