TA的每日心情 | 无聊 2018-9-27 10:05 |
---|
签到天数: 36 天 连续签到: 1 天 [LV.5]测试团长
|
本帖最后由 黑羽祭 于 2013-9-13 13:14 编辑
回复 1# 19870908
既然是表格,你要方便的用所有数据,那最好还是二维的。
我建议用数组和字典结合使用:- Dim oTable
- Set oTable = Browser("XXXX").Page("XXXX").WebTable("XXXX")
- oRow = oTable.RowCount '行
- oCol = oTable.ColumnCount(1) '列
- Dim arrData(200)
- 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
- Set oTable = Nothing
复制代码 到时候用就可以直接用 arrData(2)("姓名") 类似这样的形式 |
|