Refer below code:
Quote:rc=Browser("name:=Web Table").page("title:=Web Table").WebTable("html tag:=TABLE").RowCount
For r=1 to rc
cc=Browser("name:=Web Table").page("title:=Web Table").WebTable("html tag:=TABLE").ColumnCount®
Next
For r=1 to rc
For c=1 to cc
if Browser("name:=Web Table").page("title:=Web Table").WebTable("html tag:=TABLE").ChildItemCount (r,c,"Link")>0 then
set linkobj1= Browser("name:=Web Table").page("title:=Web Table").WebTable("htmltag:=TABLE").ChildItem(r,c,"Link",0)
print "Row:"&r&" Column:"&c&" "+ linkobj1.Getroproperty("innertext")
end if
msgbox linkobj1.Getroproperty("innertext")
Next
Next