求各位测试达人帮我查看以下代码运行时为什么会报错？

arron310

我是想用描述性编程，找出页面中所有的编辑框，然后用遍历的方法将编辑框一一赋值。但是运行到第二个Set时就报错“General run error”


SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE"

Set allWebEdit= Description.Create()
allWebEdit("micClass").Value="WebEdit"

Set allWebEdits=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(allWebEdit)

For i=1  to allWebEdits.count-1
        Set WebEdit = Description.Create()
        WebEdit =allWebEdit.item(i)

        Browser("micClass:=Browser").Page("micClass:=Page").WebEdit(WebEdit).Set "company310"
       
Next

Set allWebEdit=Nothing
Set allWebEdits=Nothing
Set WebEdit=Nothing

feiyunkai

回复 1# arron310
循环体改为：
For i=0  to allWebEdits.count-1
       allWebEdits.item(i).Set "company310"
Next

黑羽祭

回复 1# arron310


    看起来没什么问题你把allWebEdit("micClass").Value="WebEdit" 这句里面的micClass改成micclass试试

arron310

回复 2# feiyunkai


谢谢！可以成功运行了！

arron310

回复 3# 黑羽祭

修改后，这句不报错了，但是运行到循环体中的set时报错“General run error”.

黑羽祭

回复 5# arron310


    micClass都改成micclass，注意大小写

arron310

回复 6# 黑羽祭


还是报一样的错。