导出按钮事件代码:
procedure TMAINFORM.btnExpClick(Sender: TObject);
var
sFileName:string;
oSaveDialog:TSaveDialog;
begin
oSaveDialog:=TSaveDialog.Create(nil);
oSaveDialog.Filter:='excel文件(*.xls)|*.xls|all Files (*.*)|*.*';
if oSaveDialog.Execute then
begin
sFileName:=oSaveDialog.FileName;
if SysUtils.FileExists(sFileName+'.xls') then
if JsDialogs.ConfirmBox('该文件已经存在,是否要覆盖该文件?','询问',2)=false then
exit;
try
TSHEETDOCLIB.CopySheetToExcel(dvwMLL,sFileName+'.xls');
except
JsDialogs.ShowError('生成文件时发生异常,可能您指定的文件正在被使用!','错误');
exit;
end;
end; |