vb中如何读取网页中Table的数据？

Private Sub Command1_Click()

Dim vDoc, vTag, coll

Dim i As Integer

Dim j As Integer

Set vDoc = ie.Document

Dim mstrcell As String

Set coll = vDoc.All("19")

For i = 0 To coll.rows.length - 1

For j = 0 To coll.rows(i).cells.length - 1

mstrcell = mstrcell & Space(4) & coll.rows(i).cells(j).innertext

Next j

Debug.Print mstrcell

mstrcell = ""

Next i

End Sub

Private Sub Form_Load()

ie.Navigate "E:\1.htm"

End Sub

htm内容

<TABLE id=19 BORDER=1 WIDTH=80%>

<THEAD>

<TR>

<TH>Heading 1</TH>

<TH>Heading 2</TH>

</TR>

</THEAD>

<TBODY>

<TR>

<TD>Row 1, Column 1 text.</TD>

<TD>Row 1, Column 2 text.</TD>

</TR>

<TR>

<TD>Row 2, Column 1 text.</TD>

<TD>Row 2, Column 2 text.</TD>

</TR>

</TBODY>

</TABLE>