|
回复 1# 的帖子
dim rowcount,columncount
RowCount=Browser("..............").Page(".............").Frame("................").WebTable("...........").RowCount '获取行数
ColumnCount=Browser("..........................").Page("远..................").Frame("..................").WebTable("...............").ColumnCount(4) '获取列数
msgbox "这个表是:" & RowCount & "行" & ColumnCount & "列"
Dim arr(3,4)
dim i,j
for i=1 to rowcount
for j=1 to columncount
arr(i,j)=Browser("..............").Page(".............").Frame("................").WebTable("...........").getcelldata(3,4)
msgbox "arr("&cstr(i)&","&cstr(j)&")="&arr(i,j)
next
next
试试这样,行不行
[ 本帖最后由 cuixiaoyan1020 于 2009-10-20 14:20 编辑 ] |
|