获取 WebTable 中 Button . 找到指定 Button 执行 Click 动作。

最新推荐文章于 2025-08-10 15:43:17 发布

原创最新推荐文章于 2025-08-10 15:43:17 发布 · 449 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#button #browser #百度 #web

QTP学习专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一种通过脚本操作WebTable的方法，包括获取WebTable对象、遍历表格中的每一行与每一列、查找并点击特定单元格中的WebButton等。此外还展示了如何通过属性筛选并操作单选按钮。

'获得WebTable对象 Set tempTable = Browser("百度个人中心登录_2").Page("百度个人中心登录").WebTable("用户名：请填写用户名不超过7个汉字，或14个字节(数字") For row = 1 to tempTable.RowCount '获得 WebTable 总行数 Set links = tempTable.ChildItem(row,1,"WebButton",0) '获取单元格中的 WebButton 对象 If not links is nothing Then '如果不为空，则找到 WebButton 对象 'MsgBox row links.Click end if Next

'在未知 WebTable 行和列的情况下，使用嵌套循环获取 Set tab = Browser("百度个人中心登录_2").Page("百度个人中心登录").WebTable("用户名：请填写用户名不超过7个汉字，或14个字节(数字") For row = 1 to tab.RowCount ColumnCount = tab.ColumnCount(row) '获得每行中的列数 For col = 1 to ColumnCount Set links = tab.ChildItem(row,col,"WebButton",0) If not links is nothing Then MsgBox row & col links.Click Exit For end if Next Next '获取 WebTable的所有单选按钮，设置某个单选按钮 Set objTabel = Browser("Web Tours").Page("Web Tours").Frame("info").WebTable("Departure City :") Set temp = Description.Create() temp("micclass").value = "WebRadioGroup" Set wrgs = objTabel.ChildObjects(temp) For i = 0 to wrgs.count - 1 str = wrgs(i).GetROProperty("name") MsgBox str If str = "seatPref" Then wrgs(i).Select "Aisle" End If Next