Set objwt=description.Create
objwt("micclass").value="Webtable"
objwt("html tag").value="TABLE"
set allwt=Browser("Recovery Scenario Cases").Page("Recovery Scenario Cases_2").ChildObjects(objwt)
print allwt.count
For i = 0 To allwt.count-1 Step 1
rownum=allwt(i).Getrowwithcelltext("January")
If rownum>0 then
msgbox allwt(i).ChildItemCount(rownum, 3,"Link")
Set owebel=allwt(i).ChildItem(rownum,3,"Link",0)
msgbox typename(owebel)
owebel.Highlight
owebel.Click
End if
Next
objwt("micclass").value="Webtable"
objwt("html tag").value="TABLE"
set allwt=Browser("Recovery Scenario Cases").Page("Recovery Scenario Cases_2").ChildObjects(objwt)
print allwt.count
For i = 0 To allwt.count-1 Step 1
rownum=allwt(i).Getrowwithcelltext("January")
If rownum>0 then
msgbox allwt(i).ChildItemCount(rownum, 3,"Link")
Set owebel=allwt(i).ChildItem(rownum,3,"Link",0)
msgbox typename(owebel)
owebel.Highlight
owebel.Click
End if
Next
No comments:
Post a Comment