一个DocView文档,导出到Excel后,信息不全是怎么回事?
导出代码:
procedure TMAINFORM.ActionExcelExecute(Sender: TObject);
begin
if (SaveDialog.Execute) then
if StringUtils.Pos('.xls',SaveDialog.FileName)=0 then
Sheetdoclib.TSheetdoclib.CopySheettoExcel(DocView,SaveDialog.FileName+'.xls')
else
Sheetdoclib.TSheetdoclib.CopySheettoExcel(DocView,SaveDialog.FileName);
end;
如图比较:
第一幅图为,系统中的正确文档信息
第二幅图为,导出到EXcel中的文档信息