51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3451|回复: 1
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-8-9 10:27:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我的外部的文件里的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进程的样子。有没有办法解决这个问题,使里面的那个不影响?
望赐教
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-8-9 10:48:16 | 只看该作者
objExcel1.Application.DisplayAlerts = False    '屏蔽Excel确认操作提示
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 15:38 , Processed in 0.068114 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表