WebTable上自动Click Link

WebTable下自动Click Link

只写个函数 相信会vbs代码的人都能看懂

?

Function JreportLinkClick(BrowserName,PageName,FrameName,WebTableName,LinkName)

?? Dim oDesc,LinkNumber
?? Set oDesc = Description.Create()
?? oDesc("micclass").Value = "Link"
?? Set Lists = Browser(BrowserName).Page(PageName).Frame(FrameName).WebTable(WebTableName).ChildObjects(oDesc)
?? LinkNumber = Lists.Count()
?? For i = 0 to LinkNumber-1
??? ?? If Lists(i).GetRoProperty("innertext") = LinkName Then
??? ??? ?? Lists(i).Click
??? ?? End If

?? Next
??
End Function