webbrowser如何得到第一个表格的所有元素值

[aguangkj]

webbrowser如何得到第一个表格的所有元素值

就是网页里面有3个表格，

我想把第一个表格的所有元素（就是字符串）通过循环赋值给一个字符串动态数组。

我查咱们论坛以前的帖子，但老是循环的次数不对，郁闷

望高手解答写个正确的循环，先谢谢了！

[aguangkj]

昨天电脑中毒了，
今天一看竟然没有大大帮我，
唉
人工置顶吧。
这个问题貌似不是很难吧。
我先给个代码例子让大家先看看，
下面的代码我调试的时候获取的元素有点乱不是顺序的：
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim i, j, k
Dim objTables, objTable, objRow, objCell
Set objTables = Me.WebBrowser1.Document.getElementsByTagName("TABLE")
For i = 0 To objTables.length - 1
Set objTable = objTables(i)
For j = 0 To objTable.rows.length - 1
Set objRow = objTable.rows(j)
For k = 0 To objRow.cells.length - 1
Set objCell = objRow.cells(k)
Debug.Print "第" & i & "个表格", "第" & j & "行", "第" & k & "列", "值:" & objCell.innerText
Next
Next
Next
End Sub

[aguangkj]

还有个疑问
WebBrowser1_NavigateComplete2

为啥要用2呢？

[aguangkj]

人工置顶