html - VBA で Web テーブルの値を取得する

Question

この Web サイトからデータを抽出する際に問題が発生しています。

Excel Web クエリを試してみました (これは通常、Web サイトの他のページで機能しますが、この特定の Web サイトのデータを取得できません)。

Webページの「要素を検査」してresponsetextを使用してテキストを操作することで管理しましたが、この場合、本文に「テキスト-空のテキストノード」があり、テキストを操作することは事実上不可能であることがわかりました。

Answer 1

私はそれを好きではありませんが、それは私が思いつくことができる最高のものです. Debug.Print 行を便利なものに変更します。Microsoft Internet Controls および Microsoft HTML Object Library への参照を設定する必要があります。

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