51Testing软件测试论坛

标题: EXCEL保存关闭问题，报：在当前位置发现已经存在名为“RESUME.XML”的文件。。。 [打印本页]

作者: csj 时间: 2010-8-9 10:27
标题: 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
Set objExcel1=nothing

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

作者: skyzhu 时间: 2010-8-9 10:48
objExcel1.Application.DisplayAlerts = False '屏蔽Excel确认操作提示

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)