【VBA】Webスクレイピング-01：タイトルの取得

VBAというとローカル・オフライン環境で動作するものが大半を占めますが、実はWeb操作をすることも可能です。

WebスクレイピングというとPythonなどのライブラリが豊富な言語もありますが、サラリーマンが会社で使いたいというシーンにおいては実行環境が整えられないという課題もあります。

そうしたなか、Excelは多くの企業でインストールされているアプリケーションのため、環境の用意がほぼ不要であるという点で有利です。しかも、VBAは工夫次第で様々なWebページ操作が実現できます。

タナイ

今回は、「VBAで実践するWeb操作」入門編の第1弾です。

Contents

VBAで実践するWeb操作：環境構築とタイトルの取得
VBAでWebスクレイピングするための事前設定
まず動かしてみよう
コードの解説
Webページ操作の応用例
- VBA独学にオススメの書籍

VBAで実践するWeb操作：環境構築とタイトルの取得

このシリーズではExcel VBAで、Webページの操作を行っていきます。
今回は基礎編として、Webページにアクセスするための環境構築を行い、タイトルを取得するというシンプルなプログラムを作成してみましょう。

VBAでWebスクレイピングするための事前設定

VBAによるWebスクレイピングを行うプログラムでは、『ライブラリ』を使用する必要があります。
VBAエディタの[ツール]-「参照設定」を開き、以下の２つのライブラリにチェックを付けてください。

今回は、このうち1つのライブラリの参照のみで足りるプログラムを紹介していますが、次回以降は2つとも必要になるケースが多いので、先に参照設定をしておきましょう。

Microsoft Internet Controls
Microsoft HTML Object Library

動作は遅くなってしまいますが、「遅延バインディング」を使用すると参照設定をせずにライブラリを使用することも可能です。ただし、その場合はライブラリに含まれるステートメントに対してはエディタの入力補完は効かなくなります。

まず動かしてみよう

チェックを付けたら、標準モジュールを挿入し、以下のコードを書いてください（指定したURLからタイトルを取得するユーザー定義関数を作成しています）。

Option Explicit

Function getTitle(url As String)

'■１．前処理
'IEのオブジェクトを作成
Dim ie As InternetExplorer
Set ie = New InternetExplorer

'IEが開かないように設定
ie.Visible = False


'■２．本処理
'指定のURLを開く
ie.Navigate (url)

'ページの読み込みが完了するまで待つ
Do While ie.readyState <> READYSTATE_COMPLETE
    'OSに制御を戻す
    DoEvents
Loop

'<title>タグの内容を取得する
Dim title As String
title = ie.Document.getElementsByTagName("title")(0).innerText


'■３．後処理
ie.Quit
Set ie = Nothing

getTitle = title

End Function

以降は、「getTitle（取得したいWebページのURL）」という関数名で呼び出せるようになります。