csj 发表于 2010-8-9 10:27:36

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

我的外部的文件里的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
SetobjExcel1=nothing

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

skyzhu 发表于 2010-8-9 10:48:16

objExcel1.Application.DisplayAlerts = False    '屏蔽Excel确认操作提示
页: [1]
查看完整版本: EXCEL保存关闭问题,报:在当前位置发现已经存在名为“RESUME.XML”的文件。。。