VBA ウェブスクレイイング

VBAで始めるWebスクレイピング：初心者向けガイド

By /

はじめに

VBAでWebスクレイピングを行いたいと考えている方へ。本記事では、VBA（Visual Basic for Applications）を使ってWebサイトからデータを取得する方法を解説します。ExcelとVBAを活用することで手動でのデータ収集を自動化し、作業効率を一気に向上させましょう！

1. Webスクレイピングとは

Webスクレイピングは、ウェブサイトから特定の情報を自動的に抽出する技術です。これにより、大量のデータを手動でコピー＆ペーストする手間を省き、効率的に情報を収集できます。

2. VBAでWebスクレイピングを行うメリット

  • Excelとの連携：取得したデータをそのままExcelに保存・分析可能
  • 手軽さ：追加のソフトウェアやライブラリを必要とせず、Excelだけで完結
  • 自動化：定期的なデータ取得を自動化し、時間を節約

3. 必要な準備

3.1. 開発者タブの表示

  1. Excelを開き、メニューの「ファイル」→「オプション」を選択
  2. 「リボンのユーザー設定」をクリック
  3. 右側の「開発者」にチェックを入れ、「OK」をクリック
開発者タブの表示方法

3.2. 参照設定の追加

  1. 開発者タブの「Visual Basic」をクリック
  2. 「ツール」→「参照設定」を選択
  3. 以下のライブラリにチェックを入れる
    • Microsoft HTML Object Library
    • Microsoft Internet Controls

4. 基本的なVBAコードの解説

以下は、VBAでWebページを取得するための基本的なコードです。

Sub WebScrapingSample()
    Dim IE As New InternetExplorer
    Dim HTMLDoc As HTMLDocument
    
    ' Webサイトを開く
    IE.Visible = False
    IE.navigate "https://www.example.com"
    
    ' ページの読み込み完了を待つ
    Do While IE.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' HTMLドキュメントを取得
    Set HTMLDoc = IE.document
    
    ' 必要な情報を抽出（例としてタイトルを取得）
    Dim pageTitle As String
    pageTitle = HTMLDoc.Title
    MsgBox "ページのタイトルは：" & pageTitle
    
    ' IEを閉じる
    IE.Quit
    Set IE = Nothing
    Set HTMLDoc = Nothing
End Sub

5. 実践：サンプルサイトからデータを取得

5.1. 取得したいデータの確認

  • 対象サイト：例として、為替レート情報を提供するサイト
  • 取得項目：通貨名とレート

5.2. コードの説明

Sub GetExchangeRates()
    Dim IE As New InternetExplorer
    Dim HTMLDoc As HTMLDocument
    Dim exchangeTable As Object
    Dim row As Object
    Dim i As Integer
    
    ' Webサイトを開く
    IE.Visible = False
    IE.navigate "https://www.exchangeratesample.com"
    
    ' ページの読み込み完了を待つ
    Do While IE.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    Set HTMLDoc = IE.document
    
    ' 為替レートのテーブルを取得
    Set exchangeTable = HTMLDoc.getElementById("exchange-rate-table")
    
    ' テーブルの行をループ
    i = 1
    For Each row In exchangeTable.getElementsByTagName("tr")
        ' セルの値を取得
        Cells(i, 1).Value = row.Cells(0).innerText ' 通貨名
        Cells(i, 2).Value = row.Cells(1).innerText ' レート
        i = i + 1
    Next row
    
    ' IEを閉じる
    IE.Quit
    Set IE = Nothing
    Set HTMLDoc = Nothing
End Sub

5.3. コードの実行

  1. ExcelのVBAエディタで上記のコードを貼り付け
  2. カーソルをサブプロシージャ内に置き、F5キーで実行
  3. データがシートに書き込まれることを確認

6. 注意点とベストプラクティス

  • サイトの利用規約を確認：Webスクレイピングを行う前に、対象サイトの利用規約でデータ取得が許可されているか確認しましょう。
  • アクセス頻度の制御：過度なアクセスはサーバーに負荷をかけるため、適切な間隔を設けることが重要です。
  • エラーハンドリング：ネットワークエラーや要素が見つからない場合の処理を追加すると、より堅牢なコードになります。

7. まとめ

VBAを使ったWebスクレイピングは、Excelユーザーにとって強力なツールとなります。初心者の方でも、基本的なコードと手順を理解することで、業務の効率化に大きく貢献できます。ぜひこの機会に挑戦してみてください。

キーワード：VBA、Webスクレイピング、初心者、Excel、自動化、データ取得、プログラミング

上部へスクロール