09-28-2011, 07:46 PM
Code:
r=Browser("xyz").Page("xyz").webtable("xyz").RowCount
ReDim a(r-2) 'first row is column names
For i=2 to r
'sort 3rd column
a(i-2)=Browser("xyz").Page("xyz").webtable("xyz").GetCellData(i,3)
Next
sort=true
For i=0 to ubound(a)-1
If a(i)>a(i+1) Then
sort=false
End If
Next
msgbox sort