|
下拉菜单类似如下图
录制时有三行脚本:
'选中输入框
Browser().Page().Frame().WebElement().click
'选中下拉菜单按钮
Browser().Page().Frame().WebButton().click
'在选项列表中选择选项
Browser().Page().Frame().WebElement().Click
我使用的方法是,把第三行脚本进行描述性编程,修改后的脚本如下:
Dim oDesc
Set oDesc = Description.Create()
oDesc("html tag").Value = "TD"
oDesc("innertext").Value = DataTable("WebList", dtLocalSheet) '此DataTable需要手动在LocalSheet中进行设置,其值为下拉菜单下的选项
'选中输入框
Browser().Page().Frame().WebElement().click
'选中下拉菜单按钮
Browser().Page().Frame().WebButton().click
'在选项列表中选择选项
Browser().Page().Frame().WebElement(oDesc).Click
这是我在录制脚本时,出现此类问题的解决办法,希望对大家有用 |
|