一个头疼的问题：关于ExcelApplication的另存为功能

Question

Frmimportdata.TmpExcelApp.ActiveWorkbook.SaveAs('c:\aaa.txt',
      c,0,0
      ,0,0,1,0,0
      ,EmptyParam,EmptyParam,1,0);当'c:\aaa.txt'已经存在时，Excel会弹出替换文件的对话框。
如何通过上面saveas方法中的参数设置来避免对话框的弹出，并且替换掉已存在的文件？

Answer 1

先判断目标文件是否存在，如果存在删除
然后saveAs就可以了
if FileExists('') then
  DeleteFile('') //或者充命名，在保存成功后再删除
Frmimportdata.TmpExcelApp.ActiveWorkbook.SaveAs('c:\aaa.txt',
      c,0,0
      ,0,0,1,0,0
      ,EmptyParam,EmptyParam,1,0);

Answer 2

linzhisong(無聊) 的方法最简单了
>>先判断目标文件是否存在，如果存在删除

Answer 3

Excel中有一个函数:DisplayAlerts;(具体使用方法可参考VBA for Excel帮助)
该函数可设置在保存过程中是否显示"另存为"对话框;
如:
Frmimportdata.TmpExcelApp.DisplayAlerts:=false;//不显示对话框
Frmimportdata.TmpExcelApp.SaveAs('c:\aaa.txt',
      c,0,0
      ,0,0,1,0,0
      ,EmptyParam,EmptyParam,1,0);