数据导出Excel有问题

ccseasy

1.导出前界面如下：

ccseasy

点击【导出】按钮导出Excel，结果如下：
  可以看出导出的结果：发文日期是空的，并且还少一列“备注”。

按钮代码如下：
if SaveDialog.Execute then
  begin
    ls_file:=SaveDialog.FileName;
    if PageControl.ActivePageIndex=0 then
    begin
      SHEETDOCLIB.TSHEETDOCLIB.CopySheetToExcel(DocViewFWDJ_BGSDJBG,ls_file );
    end;
  end;

lixy

昨天跟你们同事看过了。好像是缺陷。有改进过的表格导出的函数库，他说不敢随便去升级。

ccseasy

if SaveDialog.Execute then
  begin
    ls_file:=SaveDialog.FileName;
    if PageControl.ActivePageIndex=0 then
    begin
      SHEETDOCLIB.TSHEETDOCLIB.CopySheetToExcel(DocViewFWDJ_BGSDJBG,ls_file);
    end;
  end;

lixy

您询问下你的同事，看看试着升级是否能解决。

ccseasy

现在系统运行稳定，升级风险和代价太大！不考虑升级

wuchao

有一个绕过版本升级解决这个缺陷的办法。

自己写一个控件完成导入到Excel的功能，解决导出时出现问题的缺陷，然后通过delphi 6编译这个控件。把它当做第三方控件导入到平台中来。