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