您好我得到一个一般的运行时错误。这是预装的下拉菜单工作,我有这样的作品就好了之前另外一个功能。但是当它试图运行此我得到的错误。
我曾尝试与像的innerText,HTML ID,ECT不同的属性..但得到了同样的错误。
Sub WebList(DropDown)
Set myPage=Browser("title:=.*").Page("title:=.*")
Set myWebList=Description.Create()
myWebList("micClass").value="WebList"
Set AllWebList=myPage.ChildObjects(myWebList)
totalWebList=AllWebList.count()
For i = 0 To totalWebList
If AllWebList(i).GetRoProperty("name") = DropDown Then
AllWebList(i).select ("GO")
wait(3)
Exit for
End If
Next
Set myPage = nothing
Set myWebList2 = Nothing
Set AllWebList2 = nothing
End Sub
我想选择下拉。感谢您的帮助/建议。另外,如果我能改善在任何线路,使之成为动态的和经验丰富的编码器,请建议他们。
您有一个错误在你For
循环,如果没有列出与指定的名称,你会比访问实际存在的一个。这是由于这样的事实,To
在VBScript是包容性和指数0
开始。如果发现列表中的代码为我工作。
该For
循环应该是:
For i = 0 to totatlWebList - 1