最近看到壇子里有人在問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，算是拋磚引玉吧。