dbgrideh导入excel提示TDBGridEhExportClass未定义

elapse2010 2005-10-30 08:35:00

做了个按钮把dbgrideh内容导入excel,编译时提示TDBGridEhExportClass未定义,应该怎么定义?

...全文

284 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

elapse2010 2005-10-30

打赏
举报

回复

谢谢

xxx168xxx 2005-10-30

打赏
举报

回复

顶楼上的！说的对！

gxgyj 2005-10-30

打赏
举报

回复

在uses中加上 DBGridEhImpExp

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

可以很方便的将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文档

5,927

社区成员

262,932

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章