網路上找了很多資料,看到快昏倒了,都不是很正確
經過參考眾多的資料後做出來的....希望能幫到大家
這是我測試過的 Function
Function funHtml_Table2Array(ByRef bo_WebOcx As WebBrowser, ByVal bs_TableID As String) As String()()
Dim ls_Arr2(0)() As String
Dim ii, jj As Integer
ii = -1
jj = -1
Dim T1 As HtmlElement = bo_WebOcx.Document.GetElementById(bs_TableID)
For Each the_TR_Element As HtmlElement In T1.GetElementsByTagName("tr")
ii = ii + 1
ReDim Preserve ls_Arr2(ii)
For Each the_TD_Element As HtmlElement In the_TR_Element.GetElementsByTagName("td")
jj = jj + 1
ReDim Preserve ls_Arr2(ii)(jj)
ls_Arr2(ii)(jj) = the_TD_Element.InnerText & Chr(9) & the_TD_Element.InnerHtml
Next
jj = -1
Next
Return ls_Arr2
End Function



