louqqson008 发表于 2012-8-27 15:24:37

这段是精通QTP里面的，但我运行的时候出现错误了，请帮忙看下

'打开网站页面
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",_
"http://www.baidu.com/gaoji/advanced.html"
'描述对象 -- WebEdit
Set all_oEdit = Description.Create
all_oEdit("micClass").value = "WebEdit"
'为WebEdit找父对象和祖父对象，并将所有对象“包装”在一起
Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page")._
ChildObjects(all_oEdit)                                 运行到这句错误了
'遍历页面中的WebEdit对象，找到一个就输入一串指定的字符串
For i = 0 to all_oEdits.count - 1
    Set oEdit = all_oEdits.item(i)
    oEdit.Set "QTP自动化测试技术领航"
Next
'最后记得释放所有设置的对象
Set oEdit = Nothing
Set all_oEdits = Nothing
Set all_oEdit = Nothing
感觉没错啊，但放到QTP里面就提示错误了

xjwldlover 发表于 2012-8-27 15:57:06

本帖最后由 xjwldlover 于 2012-8-27 16:10 编辑

Set oEdit = all_oEdits.item(i)
你确定这里应该有个.item,而不是“all_oEdits(i) ”？

louqqson008 发表于 2012-8-27 16:06:27

回复 2# xjwldlover


    缺少了item连运行都不行了，直接提示oEdit = all_oEdits.(i)缺少标识符

xjwldlover 发表于 2012-8-27 16:10:31

点也去掉，我发错了~

louqqson008 发表于 2012-8-27 16:19:37

Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page")._
ChildObjects(all_oEdit)   
运行后提示错误在这句上

xjwldlover 发表于 2012-8-27 16:22:25

换行的写法是 " "+"_",你在下划线前面少了个空格~

louqqson008 发表于 2012-8-27 16:32:18

Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_oEdit)   

写成这样也一样提示错误

xjwldlover 发表于 2012-8-27 16:40:32

'打开网站页面
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", _
"http://www.baidu.com/gaoji/advanced.html"
'描述对象 -- WebEdit
Set all_oEdit = Description.Create
all_oEdit("micClass").value = "WebEdit"
'为WebEdit找父对象和祖父对象，并将所有对象“包装”在一起
Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page"). _
ChildObjects(all_oEdit)
'遍历页面中的WebEdit对象，找到一个就输入一串指定的字符串
For i = 0 to all_oEdits.count - 1
Set oEdit = all_oEdits.item(i)
oEdit.Set "QTP自动化测试技术领航"
Next
'最后记得释放所有设置的对象
Set oEdit = Nothing
Set all_oEdits = Nothing
Set all_oEdit = Nothing


试试

louqqson008 发表于 2012-8-27 16:59:04

回复 8# xjwldlover

我用的就是这段代码，就是我前面说的 在那句出错了，你使用这段没出错吗

xjwldlover 发表于 2012-8-27 17:12:50

①换行下划线前面加空格，或者你不换行试试
②ChildObjects(all_oEdit)                                 '注释掉-运行到这句错误了

ps，Set oEdit = all_oEdits.item(i) 和 Set oEdit = all_oEdits(i)
效果一样

louqqson008 发表于 2012-8-27 17:31:07

回复 10# xjwldlover


首先非常感谢
后面那句注释是因为我来提问才加上去的，并且用红色字显示
换行的话，在QTP中我都没用了，因为一行写的下

我记得以前用这段代码的时候是可以实现的，现在自己把这段运用到项目中时，不能实现了，
就回头把这段学习时用到的代码再运行一次，结果不行了。郁闷啊

hsjzfling 发表于 2012-8-28 11:03:09

回复 1# louqqson008

直接复制粘贴1楼代码是可以正确运行的，出错可能跟环境配置、设置等相关。楼主需要提供错误截图，才能尝试定位问题

ayuyua 发表于 2013-6-6 16:40:14

我找了一下，在赵老师的博客提示下终于找到原因了，应该是在“record and run setting”中设置成了其他网站了，只要改成“record and run test on any browser”就没问题了，小小的问题研究了一下午才弄明白，希望对其他和我一样的朋友们有用，少走点冤枉路！
页: [1]
查看完整版本: 这段是精通QTP里面的，但我运行的时候出现错误了，请帮忙看下