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

Question

webbrowser如何得到第一个表格的所有元素值就是网页里面有3个表格，我想把第一个表格的所有元素（就是字符串）通过循环赋值给一个字符串动态数组。我查咱们论坛以前的帖子，但老是循环的次数不对，郁闷望高手解答写个正确的循环，先谢谢了！

Answer 1

昨天电脑中毒了，
今天一看竟然没有大大帮我，
唉
人工置顶吧。
这个问题貌似不是很难吧。
我先给个代码例子让大家先看看，
下面的代码我调试的时候获取的元素有点乱不是顺序的：
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

Answer 2

还有个疑问
WebBrowser1_NavigateComplete2为啥要用2呢？