51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1647|回复: 2
打印 上一主题 下一主题

[原创] qtp中调用外部的vbs文件问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-12-2 23:07:48 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
在qtp中脚本
executefile "d:\bb.vbs"
testpath="d:\q.xls"
p=1
For i=1 to 10
call excel_write( testpath,"sheet1","A",i,p)
p=p+1
Next

bb.vbs中的函数如下:

function excel_write(syspath,sheet,row,col,valuein)
        set excelapp=createobject("excel.application")
        set excelbook=excelapp.workbooks.open(syspath)
        set excelsheet=excelbook.worksheets(sheet)
        excelsheet.activate
        excelapp.range(row&col).value=valuein
        excelbook.saveas syspath
        excelbook.close
        set excelapp=nothing
        set excelbook=nothing
        set excelsheet=nothing
end function


在qtp中执行脚本时每次for循环都有提示信息如附件,问题是:如何不要提示信息,直接向excel中写内容

[ 本帖最后由 test321123 于 2009-12-2 23:39 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

3#
发表于 2009-12-3 12:07:12 | 只看该作者
因为你的脚本里面每次都是创建,所以会有提示 set excelapp=createobject("excel.application")
建议你创建时候判断一下文件是否存在,如果存在直接打开,写入,关闭。
回复 支持 反对

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2009-12-2 23:14:28 | 只看该作者

1

高手帮忙解决一下啊

[ 本帖最后由 test321123 于 2009-12-2 23:38 编辑 ]
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-8 17:03 , Processed in 0.066837 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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