在workbook.saveas(fname)之前加入: if FileExists(fname) then DeleteFile(fname);还有点开你的SaveDialog的Options,把ofOverwritePrompt设为true,这样会在你选择保存文件时就提示你要不要覆盖,如果不覆盖就不会执行后面的语句了,代码应该这样写: if SaveDialog.Execute then begin fname:=savedialog1.filename; if FileExists(fname) then DeleteFile(fname); workbook.saveas(fname); ..... end;
if FileExists(fname) then
DeleteFile(fname);还有点开你的SaveDialog的Options,把ofOverwritePrompt设为true,这样会在你选择保存文件时就提示你要不要覆盖,如果不覆盖就不会执行后面的语句了,代码应该这样写:
if SaveDialog.Execute then
begin
fname:=savedialog1.filename;
if FileExists(fname) then
DeleteFile(fname);
workbook.saveas(fname);
.....
end;