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-------------------------------------------------------------------
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