【Excel VBA スクレイピング】WebサイトのHTMLソースの取得をしたい。

Question

Excel VBAでwebサイトのHTMLソースを取得したいです。

Windows7ではExcel VBAの次のコードでHTMLソースが取得できました。

Set objIE = CreateObject("Internetexplorer.Application")
objIE.navigate ("view-source:https://www.yahoo.co.jp/")

しかし、Windows 10 Internet Explorer 11に変更して以来、「view-source:https://www.yahoo.co.jp/」でHTMLソースを表示することが出来なくなった為、上記のコードではエラーが生じるようになりました。

解決策をご教授頂きたく、何卒、宜しくお願い致します。

Answer 1

HTMLソースを取得し、変数に格納する方法です。

Dim objItem As Object
Dim src As String
Dim getHTMLSource As String

For Each objItem In objIE.document.all
    src = UCase$(objItem.innerHTML)
    On Error Resume Next
    If InStr(1, src, "<HEAD") Then
        If InStr(1, src, "</BODY>") Then
            getHTMLSource = objItem.innerHTML
            Exit For
        End If
    End If
Next objItem
'エラーが発生していた場合はクリア
If (Err.Number <> 0) Then Err.Clear
On Error GoTo 0 'エラー処理を通常に戻す

Comments

[corocoro]

早々に具体的な解決策をご教授頂き誠にありがとうございました。解決致しました。
IEでHTMLソースを表示せずとも、document.allとinnerHTMLでソースを取得できるのですね。
さらにdocument.allの何番目に入っているのか<HEADと</BODY>で特定するやり方もとても勉強になりました。誠にありがとうございました。

[Yuuki2]

すみません、教えてください。ObjIEとview-sourceをどのように紐づければ良いのでしょうか？

Answer 2

今後、CreateObject("Internetexplorer.Application") に頼らない作りの方が良い気がします。

以下の記事とか、参考になりませんでしょうか？

• エクセルVBAでHTTPリクエストをする最も簡単なプログラム
• エクセルVBAでIEを使わずにHTMLドキュメントを取得する方法

Comments

[corocoro]

早速ご回答ありがとうございます。とても参考になりました。
IEに依存せず、高速にデータ取得できるんですね。大変勉強になります。また、ご案内頂きましたサイトの説明はとても丁寧で分かりやすいので今後も参考にさせて頂きます。誠にありがとうございました。