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