dbgrideh如何转为EXECL

jyqkr 2002-10-26 11:47:53

dbgrideh如何转为EXECL,最好有源码，解决立马结贴。

...全文

24 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

日总是我哥 2002-10-26

打赏
举报

回复

讨论贴：http://expert.csdn.net/Expert/TopicView1.asp?id=1112498

日总是我哥 2002-10-26

打赏
举报

回复

http://www.csdn.net/develop/read_article.asp?id=15417

可以很方便的将dbgrideh转EXCEL控件

在他人的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、表格样式设置；就是动态数据不会封装到类里面，如果有高人封装得更好一些，请发一份我；

可以多表头输出到EXCEL 最近有用到DBGridEh,但是多表头的输出一直是个问题,于是根据DisplayLabel自己写了个模块. 因为时间的关系,算法一直没有精简

delphi中，利于此类可以很方便的将DBGridEh数据导成EXCEL文档

绝对原创的DBGridEh导出到Excel程序单元,Delphi7环境下可用，其它版本是否可用就不清楚了。主要功能:导出DBGridEh表格数据到Excel(废话！) 特色功能:1.支持DBGridEh多行标题(最多三层)，DBGridEh中采取了这种标题，则导出的Excel同样是这种标题，不走样。 2.支持页脚统计栏导出(就在一个过程中实现,不另写代码) 3.忠实反应字段的数据类型,防止Excel自作多情的改变数据类型，如股票代码000735，导出后为文本'000735',不会自动转化为735；身份证号码也不会转换科学计数法格式，减号不会识别为日期间隔符，等号也不会识别为公式的前导符号。

5,931

社区成员

262,938

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章