html - 使用 VBA 获取 web 表值

Question

我在从该网站提取数据时遇到问题。

我尝试使用 Excel 网络查询（通常适用于网站中的其他页面，但无法检索此特定网站的数据）。

我通过网页的“检查元素”来使用响应文本并操作文本来进行管理，但在这种情况下，我发现正文具有“文本 - 空文本节点”，这使得几乎无法使用文本。

Answer 1

我不喜欢它，但这是我能想到的最好的。将 Debug.Print 行更改为有用的东西。您需要设置对 Microsoft Internet 控件和 Microsoft HTML 对象库的引用。

Public Sub GetReports()

    Dim ie As InternetExplorer
    Dim hDoc As MSHTML.HTMLDocument
    Dim hTbl As MSHTML.HTMLTable

    Set ie = New InternetExplorer
    ie.Navigate2 "http://www.bmreports.com/bsp/BMRSSystemData.php?pT=DDAD&zT=N&dT=NRT"

    Do
        DoEvents
    Loop Until ie.readyState = READYSTATE_COMPLETE

    Set hDoc = ie.document

    Set hTbl = hDoc.getElementsByClassName("tablesorter").Item(0)

    Debug.Print hTbl.innerText

    ie.Quit

End Sub