Monday, 15 September 2014

To fetch data from table

Dim a
Browser("HTML Tables").Sync
Browser("HTML Tables").Page("HTML Tables").Sync
a= Browser("HTML Tables").Page("HTML Tables").WebTable("Number").RowCount()
msgbox  a
For row = 1 to a
    colcount=Browser("HTML Tables").Page("HTML Tables").WebTable("Number").ColumnCount(row)
    For col=1 to colcount
rowData=rowData&VBTab&Browser("HTML Tables").Page("HTML Tables").WebTable("Number").GetCellData(row,col)
Next
print(rowData)
rowData=""
Next






Output-------------------------------------------------------------------


No comments:

Post a Comment