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

weixin_30849591

于 2010-04-11 08:26:00 发布

阅读量867

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zzwen/archive/2010/04/11/1709353.html

本文介绍了一段使用VBA从特定ID的HTML文件中读取表格数据的代码示例。该示例展示了如何通过Internet Explorer对象获取网页内容，并利用VBScript引擎解析HTML中的表格结构，逐行读取并打印出表格单元格内的文本。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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>