EXCEL保存关闭问题，报：在当前位置发现已经存在名为“RESUME.XML”的文件。。。

csj

我的外部的文件里的Function内容为：

Function CreateExcelObj(ExcelNameAndPath)

    set objExcel = CreateObject("Excel.Application")
    objExcel.Workbooks.Open (ExcelNameAndPath)
    objExcel.Worksheets("sheet1").Activate
    set CreateExcelObj=objExcel
   
End Function
调用过程如下：
set objExcel1 =CreateExcelObj("D:\project\usercenter.xls")
。。。。。。。。。。。。。。。

objExcel1.Cells(2,13).value=rootNode.childNodes(0).attributes(0).nodeValue
objExcel1.Cells(2,14).value=rootNode.childNodes(0).attributes(1).nodeValue
。。。。。。。。。。。。。。。
objExcel1.save
objExcel1.quit
Set  objExcel1=nothing

执行到objExcel.save这句时报：在当前位置发现已经存在名为“RESUME.XML”的文件，您希望将该文件替换掉吗？
是EXCEL的弹出提示框。
1.请问高手有没有vbs代码可以直接让脚本默认选择“是”不弹出该提示框执行完？
2.我觉得只所以弹出该提示框的原因是FUNCTION执行时，有一个“set objExcel = CreateObject("Excel.Application")”了，外面又有一个objExcel变量结果造成有两个EXCEL进程的样子。有没有办法解决这个问题，使里面的那个不影响？
望赐教

skyzhu

objExcel1.Application.DisplayAlerts = False    '屏蔽Excel确认操作提示