【结贴】将表格文档导出excel**

ccseasy

代码如下：
procedure TKXJSDAGDMLform.ToolButton1Click(Sender: TObject);
var
  ls_file:string;
begin

if SaveDialog.Execute then
  begin
    ls_file:=SaveDialog.FileName;
  end;
  if (ls_file='') or (ls_file = nil) then exit;

  if RadioButton1.Checked=true then
  begin
  SHEETDOCLIB.TSHEETDOCLIB.CopySheetToExcel(DocView2,ls_file);
  end;

  if RadioButton2.Checked=true then
  begin
  SHEETDOCLIB.TSHEETDOCLIB.CopySheetToExcel(DocView3,ls_file);
  end;

  Borland.Delphi.ShellAPI.ShellExecute(0, 'open', ls_file, '', '', Borland.Delphi.Windows.SW_SHOW);

end;

问题是：不能导出全部内容，最后一列不能导出。

ccseasy

需要导出的表格文档

ccseasy

导完以后的excel

atiger

你把表格文档高度和宽度在分别扩一行试试

jiahaiminghr

楼主，问题解决了吗？

lixy

由于长时间没有反馈，先结贴了。

有问题请开新贴。