版本:3002
问题描述:sheetdoc在执行下面代码进行导出EXCEL时CPU100%,很长时间无反应(到目前没有等到它有反应过),就一个功能这样,其他都很快
with SaveDialog1 do
begin
if Execute then
begin
if (FileName='') or (FileName = nil) then Exit;
if SysUtils.FileExists(FileName) then
begin
if jsDialogs.ConfirmBox('文件已经存在是否覆盖?',THDMessageConsts.SystemCaption,1) then
TSHEETDOCLIB.CopySheetToExcel(DOC_MAIN,FileName);
end
else
TSHEETDOCLIB.CopySheetToExcel(DOC_MAIN,FileName);
end;
end; |