zzwen

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>

分类:

技术点:

相关文章: