51Testing软件测试论坛

标题: 保存excel时弹出的对话诓 [打印本页]

作者: seachild 时间: 2005-9-2 13:27
标题: 保存excel时弹出的对话诓
需要保存一些信息到excel中，脚本如下：
dim Exlobj,Exlsheet,Exlpath,fso

Set Exlobj = CreateObject("Excel.Application")
Exlobj.Visible = False
Exlobj.Workbooks.Open Exlpath,ForWriting, False
Set ExlSheet = Exlobj.Workbooks(1).Worksheets(1)

。。。。。。。。

Exlsheet.Cells(i, 3)="T"
Exlobj.Save
Exlobj.Workbooks.close

set fso=nothing
set Exlpath=nothing
set Exlobj=nothing
set Exlsheet=nothing

当运行到 Exlobj.Save 时，系统弹出窗口，问 resume.xlw 已经存在，是否要替换？单击是顺利保存，单击否不能保存且脚本不能往下执行。

请问这是什么回事，如果才能在脚本运行时不显示这个对话诓？

作者: hongtang 时间: 2005-9-3 11:09
标题: 在参数设置成覆盖
在参数设置成覆盖

作者: seachild 时间: 2005-9-5 17:07
标题: 请问在哪设置呀？
找不到设置的地方，还请指点一下。

作者: hongtang 时间: 2005-9-6 00:23
标题: 用这个比你用的方便多了
DataTable.ExportSheet

作者: seachild 时间: 2005-9-6 14:04
标题: 请问一下，用excel的话能否避免弹出那个诓呢？
用DataTable.ExportSheet不是不行，只是最终结果还是需要保存到excel中，那还是会运行Exlobj.Save这一句的，也就是问题仍然存在。如果等运行完再手工导出到excel文件中就更麻烦拉，还不如按下这个对话框的“yes”键。
请问一下，怎么样才能避免弹出这个对话诓呢？

作者: hongtang 时间: 2005-9-6 21:16
标题: DataTable.ExportSheet你用过了吗?
你先试了再说行吗?
你知道DataTable.ExportSheet 和DataTable.Export的功能了吗?
你用好了在回贴吧~
完全无语了~~

作者: steedy 时间: 2005-9-6 21:30
呵呵
楼主只顾钻研VBS技术，打算完全放弃QTP本身提供的函数啊

作者: tianzhiwei 时间: 2005-9-8 09:29
楼住的方法我没有用过哎~不太懂VBS

作者: seachild 时间: 2005-9-8 14:09
标题: 问题可以解决
使用DataTable的导入导出的确能解决这个问题。只是原来没想过使用这个功能，因为想着直接在excel文件里读取和写数据比较方便。
问题是解决了，只是不是很明白如果直接写excel文件，为什么保存的时候会弹出来这样一个提示诓。知道的还请多指教。

作者: renquande 时间: 2011-4-27 10:26
Exlobj.Save
前面加上：Exlobj.DisplayAlerts = False即可
'当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗？” 使用DisplayAlerts代码解决
Exlobj.DisplayAlerts = False
Exlobj.Save

作者: vkemc 时间: 2011-6-7 11:41
呵呵
楼主只顾钻研VBS技术，打算完全放弃QTP本身提供的函数啊

作者: wendy.wang 时间: 2011-6-7 13:20
学习学习

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