如何读取网页表格中的数据

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>