保存excel时弹出的对话诓

seachild · 发表于 2005-9-2 13:27:13

需要保存一些信息到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:08

在参数设置成覆盖

seachild · 发表于 2005-9-5 17:07:11

找不到设置的地方，还请指点一下。

hongtang · 发表于 2005-9-6 00:23:24

DataTable.ExportSheet

seachild · 发表于 2005-9-6 14:04:59

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

hongtang · 发表于 2005-9-6 21:16:48

你先试了再说行吗?
你知道DataTable.ExportSheet 和DataTable.Export的功能了吗?
你用好了在回贴吧~
完全无语了~~

steedy · 发表于 2005-9-6 21:30:13

呵呵
楼主只顾钻研VBS技术，打算完全放弃QTP本身提供的函数啊

tianzhiwei · 发表于 2005-9-8 09:29:45

楼住的方法我没有用过哎~不太懂VBS

seachild · 发表于 2005-9-8 14:09:05

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

renquande · 发表于 2011-4-27 10:26:09

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