dbgrideh导出excel，提示文件已损坏

szto2003 2011-05-11 04:00:41
dbgrideh导出excel，用excel2010打开，提示文件已损坏，不知道有没有办法解决（2000，2003，2007没有问题）
...全文
329 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
szto2003 2011-05-16
  • 打赏
  • 举报
 回复
自己再顶一下！！
szto2003 2011-05-14
  • 打赏
  • 举报
 回复
自己再顶一下！！
szto2003 2011-05-11
  • 打赏
  • 举报
 回复
看来这个问题无解了！！
newfang 2011-05-11
  • 打赏
  • 举报
 回复
用office 2003打开木有问题的路过……
szto2003 2011-05-11
  • 打赏
  • 举报
 回复
自己顶一下，望高手指点
szto2003 2011-05-11
  • 打赏
  • 举报
 回复
dbgrideh自带excel导出的，不要这么麻烦吧，现在就是兼容的问题！！
gobiz 2011-05-11
  • 打赏
  • 举报
 回复
从前曾经写过一个函数，使用XLSReadWriteII组件来导出DBGridEh的数据，也支持多表头的，不过找不到了，其实没有多少难度，就是有点繁琐罢了！
支持多个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、表格样式设置； 就是动态数据不会封装到类里面，如果有高人封装得更好一些，请发一份我；
dbgrideh导出到excel
dbgrideh导出到excel,数据库导出到excel
delphi dbgrid导出excel单元文件绝对好用
delphi dbgrid导出excel单元文件绝对好用 调用方式 var GridtoExcel: TDBGridEhToExcel; begin GridtoExcel := TDBGridEhToExcel.Create(nil); try GridtoExcel.DBGridEh := DBGridEh1; GridtoExcel.FileName := FormatDateTime('yyyy-mm-dd',DateTimePicker1.DateTime)+ '--------'+FormatDateTime('yyyy-mm-dd',DateTimePicker2.DateTime) +'退款订单导出'; GridtoExcel.ShowProgress := True; GridtoExcel.ExportToExcel; finally GridtoExcel.Free; end; end;
比较快速的将DBGridEh中的数据导出到Excel中
特点：一、不需安装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;
DBGrideh导出Excel
支持多表头，不需要系统安装office。支持2003-2007以上。注意：需要安装XLSReadWrite。 另：XLSReadWrite导出特殊符号例如X乘号之类的会乱码。有解决的朋友请联系。
Delphi

5,392

社区成员

262,732

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章