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

louqqson008

'打开网站页面
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里面就提示错误了

ayuyua

我找了一下，在赵老师的博客提示下终于找到原因了，应该是在“record and run setting”中设置成了其他网站了，只要改成“record and run test on any browser”就没问题了，小小的问题研究了一下午才弄明白，希望对其他和我一样的朋友们有用，少走点冤枉路！

hsjzfling

回复 1# louqqson008

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

louqqson008

回复 10# xjwldlover


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

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

xjwldlover

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

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

louqqson008

回复 8# xjwldlover

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

xjwldlover

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

复制代码

试试

louqqson008

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

写成这样也一样提示错误

xjwldlover

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

louqqson008

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

xjwldlover

点也去掉，我发错了~

louqqson008

回复 2# xjwldlover


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

xjwldlover

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