???????????????????????WebTable????????????娲�????????????

?????????????写????????????????????????????????????妫�??????些????

?????????????????妫�??????????????????????????????????????????????????

Dim oTable
Set oTable = Browser("????????").Page("????????").WebTable("???")
Dim oRow?? oCol
oRow = oTable.RowCount
oCol = oTable.ColumnCount(1)
Dim arrData()
ReDim arrData(oRow)
Dim i ?? j
For i = 1 to oRow-1
Set arrData(i)=CreateObject("Scripting.Dictionary")
For j = 1 to oCol
arrData(i).Add Trim(oTable.GetCellData(1??j)) ?? oTable.GetCellData(i+1??j)
Next
Next
print  arrData(3)("????")
print  arrData(9)("????3")

?????????????煤?????效????

????OK?????????????伞?