Excel VBAでパブリックデータベースから統計・レポートを取得する方法

この記事では、Excel VBAを使用して、パブリックデータベースから公開されている統計やレポートを取得する方法について詳しく解説します。具体的なコード例とその詳細な解説、そして応用例を3つ紹介しますので、VBAの知識をさらに深めたい方は是非ともご参照ください。

基本の取得方法

Excel VBAを使用して、ウェブからのデータを取得するための基本的な方法は、`QueryTables`を使用することです。以下はその基本形となるコードです。

Sub GetDataFromWeb()
    Dim qt As QueryTable
    Set qt = ThisWorkbook.Worksheets("Sheet1").QueryTables.Add( _
        Connection:="URL;http://example.com/publicdata/report.csv", _
        Destination:=ThisWorkbook.Worksheets("Sheet1").Range("A1"))
    qt.Refresh
End Sub

コードの詳細解説

上記のコードでは、`QueryTables.Add`メソッドを使用して、ウェブからのデータを取得します。

– `Connection`には取得したいデータのURLを指定します。ここではサンプルとして`http://example.com/publicdata/report.csv`を指定していますが、実際には取得したいデータのURLを指定します。
– `Destination`には取得したデータを配置するセルを指定します。この例ではシート1のA1セルを指定しています。

応用例

1. 複数のURLからデータを取得

複数のURLから順次データを取得したい場合、以下のようにループを使用します。

Sub GetMultipleDataFromWeb()
    Dim urls As Variant
    Dim i As Integer
    Dim destCell As Range

    urls = Array("http://example.com/data1.csv", "http://example.com/data2.csv", "http://example.com/data3.csv")
    
    Set destCell = ThisWorkbook.Worksheets("Sheet1").Range("A1")

    For i = LBound(urls) To UBound(urls)
        ThisWorkbook.Worksheets("Sheet1").QueryTables.Add( _
            Connection:="URL;" & urls(i), _
            Destination:=destCell).Refresh
        Set destCell = destCell.Offset(100, 0) ' Assuming each data set is less than 100 rows.
    Next i
End Sub

2. データの取得間隔を設定

定期的にデータを更新したい場合、以下の方法で取得間隔を設定できます。

Sub SetRefreshInterval()
    Dim qt As QueryTable

    Set qt = ThisWorkbook.Worksheets("Sheet1").QueryTables.Add( _
        Connection:="URL;http://example.com/publicdata/report.csv", _
        Destination:=ThisWorkbook.Worksheets("Sheet1").Range("A1"))
    qt.RefreshPeriod = 60 ' Refresh every 60 minutes
    qt.Refresh
End Sub

3. データのフォーマットを自動調整

データの取得後にフォーマットを自動調整したい場合、以下の方法が有効です。

Sub GetDataAndFormat()
    Dim qt As QueryTable

    Set qt = ThisWorkbook.Worksheets("Sheet1").QueryTables.Add( _
        Connection:="URL;http://example.com/publicdata/report.csv", _
        Destination:=ThisWorkbook.Worksheets("Sheet1").Range("A1"))
    qt.Refresh

    ' Auto-fit columns and rows after data retrieval
    ThisWorkbook.Worksheets("Sheet1").UsedRange.Columns.AutoFit
    ThisWorkbook.Worksheets("Sheet1").UsedRange.Rows.AutoFit
End Sub

まとめ

Excel VBAを使用して、パブリックデータベースから公開されている統計やレポートを取得する方法について学びました。基本の取得方法から、応用例まで幅広く紹介しましたので、実際の業務や研究に活かしていただければと思います。