DBGridEh中的汉字多的数据列如何导出到execl中

coderee 2018-06-22 06:42:31

如上图，DBGridEh中的“反馈内容”列导出到execl中，用以下两种方式，EXECL中显示的内容都不全，请问如何解决？
1、 xlreport1.XLSTemplate:=extractfilepath(paramstr(0))+'\客户投诉信息.xlsx';
xlreport1.Report;
2、 SaveDBGridEHTOExportFile(TdbgridehEXportasxls,dbgrideh1, 'c:\查询结果.xls',true);
showmessage('导出到c:\查询结果.xls完毕');}

...全文

433 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

想到才能做到 2018-08-31

打赏
举报

回复

看看这个：https://download.csdn.net/download/E_wsq/328298

hexfhhu 2018-08-30

打赏
举报

回复

设置单元中文字内容自动换行就可以了

秋天之落叶 2018-06-26

打赏
举报

回复

引用 3 楼 coderee 的回复:

装上了,delphi开发界面怎么看不到，这个控件如何使用啊

名字是XLS，看不到可能是没装好，

coderee 2018-06-25

打赏
举报

回复

引用 2 楼 lyhoo163 的回复:

建议使用第三控件XLSReadWriteII4，生成EXCEL，将该单元，拉高拉长。

装上了,delphi开发界面怎么看不到，这个控件如何使用啊

lyhoo163 2018-06-23

打赏
举报

回复

建议使用第三控件XLSReadWriteII4，生成EXCEL，将该单元，拉高拉长。

coderee 2018-06-23

打赏
举报

回复

有知道的吗？

特点：一、不需安装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;

使用XLSReadWriteII5控件比comobj速度快不用依赖excel

直接导出带进度条~~~~~~~~~~~，支持多表头

delphi xe10.2下的dbgrideh表格数据导出txt，xls文件

在他人的DBGridEh导出到Excel的基础上进行改进，增加功能如下： 1、支持多个DBGridEH同时导出到Excel的不同Sheet页 2、进度条与数据进度保持一致 3、增加了进度百分比显示 //调用方法: procedure TForm1.Button1Click(Sender: TObject); var DbOut: TDBGridEhToExcel; i: integer; begin try DbOut := TDBGridEhToExcel.Create(Self); for i := 0 to 9 do //初始化数组 begin DbOut.DBGridEhRecAry[i].TempDBGridEh := nil; DbOut.DBGridEhRecAry[i].TitleName := ''; DbOut.DBGridEhRecAry[i].SheetTabName := ''; end; //有多少个DBGridEh的数据要导出，此处表示两个 DbOut.DBGridEhRecLength := 2; //统计结果一 DbOut.DBGridEhRecAry[0].TempDBGridEh := dbgSpotCheckCount; DbOut.DBGridEhRecAry[0].TitleName := '统计结果一'; DbOut.DBGridEhRecAry[0].SheetTabName := '统计结果一'; //统计结果二 DbOut.DBGridEhRecAry[1].TempDBGridEh := dbgValuationCount; DbOut.DBGridEhRecAry[1].TitleName := '统计结果二'; DbOut.DBGridEhRecAry[1].SheetTabName := '统计结果二'; DbOut.TitleName := '统计结果'; DbOut.ShowProgress := True; DbOut.ShowOpenExcel := True; DbOut.ExportToExcel; finally FreeAndNil(DbOut); end; end; 还可以改进的地方，比如： 1、标题栏占用几行，字体，字体颜色，字体大小，背景颜色可以封装提供设置方法； 2、字段标题字体，字体颜色，字体大小； 3、表格样式设置；就是动态数据不会封装到类里面，如果有高人封装得更好一些，请发一份我；

5,930

社区成员

262,936

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章