’ 首先获取WebTable对象，然后通过ChildItem获取指定单元格中的链接对象，并单击该链接：
’ 获取WebTable对象
Set objTable = Browser("请登录 博都网").Page("我的文章").WebTable("文章标题")
intRow = 2
intCol = 1
’ 通过ChildItem获取单元格中的链接对象
Set objLink = objTable.ChildItem(intRow, intCol, "Link" , 0)
’ 单击链接
objLink.click
_______________________________________________
’获取webtable的行数，并查找指定的内容
numRows = Browser("请登录 博都网_2").Page("我的文章").WebTable("文章标题").RowCount
For i=2 to numRows
title_text =Browser("请登录 博都网_2").Page("我的文章").WebTable("文章标题").GetCellData(i,1)
If trim(title_text) = trim(articleTitle) Then
reporter.ReportEvent 0,"测试成功","文章列表显示新添加的文章标题"
Exit For
End If
Next
’如果table有很多页，数据不在第一页，怎么查找？
’’’’’’’’’’’Function : 在webTable中查找元素’’’’’’’’’
Function FindedItemInTable(pageObj1,WebTable_Obj1,searchStr,PageNum)
’ Finded ：标记是否从table里找到数据
’ currentPage:当前页；numRows：当前页的行数
Dim Finded,currentPage
Finded = false
’从第一页开始查找。
For currentPage = 1 to PageNum
’==================初始化：保证从第一页开始搜索==========================
’ If currentPage = 1 Then
’ pageObj.Link("pageLink").SetTOProperty "text",1
’ pageObj.Link("pageLink").SetTOProperty "href","javascript:forward(1)"
’ If pageObj.Link("text:=1","href:=javascript:forward(1)").Exist(1) Then
’ pageObj.Link("text:=1").Click
’ End If
’ End If
