エクセルVBAでWEBスクレイピングする方法

【チュートリアル】エクセルVBAでWEBスクレイピングする方法 | ぶきろぐ（bukilog） (bukidarts.com)

ExcelVBAからIEを制御するには、IEのCOMを参照する必要があります。

1. ExcelのVBE(Visual Basic Editor)をく
2. メニューバー→「ツール」→「参照設定」
3. 以下の二つにチェックを入れる

• Microsoft HTML Object Library
• Microsoft Internet Controls

Option Explicit

'WinAPIのSleepを定義

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

 

Sub OpenWebSite()

'IEのCOMをインスタンス化

Dim ie As New InternetExplorer

'IEでYahoo!JAPANのポータルサイトを開く

ie.navigate "https://www.yahoo.co.jp"

'サイトを開ききるまでウェイトする処理

Do

If (ie.Busy = False) Then

Exit Do

End If

'1000msウェイト

Sleep 1000

Loop

'HTMLドキュメント格納用の変数を用意

Dim html As HTMLDocument

'ieに取得したTMLドキュメントをセット

Set html = ie.document

'HTMLのタイトルを表示

MsgBox html.Title

End Sub