【结贴】[请求]关于表格导出excel

rzport_zhzhx

您好，现在做一个功能，表格导出excel ，按钮调用过程，代码如下：procedure TBFZCT.SpeedButton2Click(Sender: TObject);
//表格文档输出xsl 文件
var
  sFileName:string;
begin
  //SaveDialog1.Filter:='excel文件(*.xls)|*.xls|(*.doc)|*.doc';
  SaveDialog1.Filter:='excel文件(*.xls)|*.xls';
  if  SaveDialog1.Execute then
  begin
    sFileName:=SaveDialog1.FileName;
    if SysUtils.FileExists(sFileName+'.xls') then
      if JsDialogs.ConfirmBox('该文件已经存在,是否要覆盖该文件?','询问',2)=false then
       exit;
    try
      Sheetdoclib.TSheetdoclib.CopySheettoExcel(DocView1,SaveDialog1.FileName+'.xls')
    except
      JsDialogs.ShowError('生成文件时发生异常,可能您指定的文件正在被使用!','错误');
      exit;
    end;
  jsdialogs.ShowMsg('Excel 导出成功！','提示：');//提示导出数据成功
  end ;
end;
可以奇怪的是，总是会丢失第二行，导出结果如下图所示：

zfang

是否被过滤掉了？
你把导出excel的表格文档界面贴出来看看。

rzport_zhzhx

界面如图所示：

rzport_zhzhx

界面

zfang

预览后的图，带数据的。

rzport_zhzhx

回复

rzport_zhzhx

图

zfang

平台 什么版本？
是否可以把这个相关的资源打包发上来看看。

rzport_zhzhx

谢谢方哥的耐心回复哈，我用的是3088 的，不过这个问题我刚才又仔细检查了一下，好像是因为在表单上第6行的行高我设置了0，所以到处电子表格的时候就没有了，我把它改过来了，现在正常了。

zfang

ok，谢谢反馈。