Excel VBAを使用したヘルスケアサイトからの医師・施設情報抽出方法

この記事では、Excel VBAを利用して、ヘルスケアサイトから医師や施設の情報を抽出する方法を紹介します。初心者向けに基本的な手法から始め、応用例としてさまざまなデータの取得や加工方法を解説しています。

VBAによるヘルスケアサイトからのデータ抽出の基礎

ExcelのVBAを使用してウェブサイトからのデータ抽出を行う場合、主に「Webクエリ」や「IEオートメーション」の2つの方法があります。今回は、IEオートメーションを使用した例を中心に解説します。

Sub ExtractDataFromHealthcareSite()
    Dim IE As Object
    Dim doc As HTMLDocument
    Dim i As Integer
    Dim physicianInfo As Object
    ' Internet Explorerのインスタンスを作成
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    
    ' ヘルスケアサイトにアクセス
    IE.Navigate "https://www.healthcaresite.jp"
    ' ページが読み込まれるのを待つ
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    Set doc = IE.document
    ' 医師の情報を抽出
    i = 1
    For Each physicianInfo In doc.getElementsByClassName("physician-info")
        Sheets("Sheet1").Cells(i, 1).Value = physicianInfo.innerText
        i = i + 1
    Next physicianInfo
    ' Internet Explorerを閉じる
    IE.Quit
    Set IE = Nothing
End Sub

コードの詳細解説

上記のコードは、Internet Explorerを自動操作してヘルスケアサイトから医師の情報を抽出するものです。主なポイントを以下に解説します。

1. **Internet Explorerの操作**：VBAからInternet Explorerを操作するために、`CreateObject(“InternetExplorer.Application”)`を使用しています。
2. **ページの読み込み待機**：`Do While IE.Busy Or IE.readyState <> 4`で、ページが完全に読み込まれるのを待っています。
3. **医師情報の取得**：`doc.getElementsByClassName(“physician-info”)`を使用して、クラス名が”physician-info”の要素を取得しています。

応用例

1. 施設情報の抽出

医師の情報だけでなく、施設情報も取得したい場合の方法を紹介します。

' 施設の情報を抽出
i = 1
For Each facilityInfo In doc.getElementsByClassName("facility-info")
    Sheets("Sheet2").Cells(i, 1).Value = facilityInfo.innerText
    i = i + 1
Next facilityInfo

2. 特定の条件を満たす医師の情報のみを抽出

例えば、ペディアトリクス専門の医師の情報のみを抽出したい場合の方法を示します。

' ペディアトリクス専門の医師の情報を抽出
i = 1
For Each physicianInfo In doc.getElementsByClassName("physician-info")
    If InStr(physicianInfo.innerText, "ペディアトリクス") > 0 Then
        Sheets("Sheet3").Cells(i, 1).Value = physicianInfo.innerText
        i = i + 1
    End If
Next physicianInfo

3. 抽出した情報のフォーマット整形

抽出した情報を見やすく整形する方法を紹介します。

' 抽出した情報を整形
i = 1
For Each physicianInfo In doc.getElementsByClassName("physician-info")
    Dim data As Variant
    data = Split(physicianInfo.innerText, vbNewLine)
    Sheets("Sheet4").Cells(i, 1).Value = data(0) ' 医師の名前
    Sheets("Sheet4").Cells(i, 2).Value = data(1) ' 専門分野
    i = i + 1
Next physicianInfo

まとめ

Excel VBAを使用してヘルスケアサイトから医師や施設の情報を抽出する手法を解説しました。この技術を使って、自動化の範囲をさらに拡大して、効率的な情報収集を行ってください。