'获得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