Excel VBAでAccessテーブルを読み込む方法：初心者向けの簡単サンプル付き

2025年7月26日

Accessデータベース（.accdb形式）に保存されたテーブルデータを、ExcelのVBAを使って簡単に読み込む方法をご紹介します。この記事では、DAO（Data Access Objects）を活用し、VBAコードだけでAccessの情報を取得する方法を丁寧に解説いたします。

使用するVBAコード

以下は、Access内のテーブル「tbl_staff」からデータを読み取り、Excelのセル「B2」から出力する例です。

Sub ImportAccessData()
    Dim daoEngine As Object
    Dim accessDB As Object
    Dim recordSet As Object
    Dim dbPath As String

    ' Accessファイルのパスを指定
    dbPath = ThisWorkbook.Path & "\sample_database.accdb"

    ' DAOエンジンの初期化とデータベース接続
    Set daoEngine = CreateObject("DAO.DBEngine.120")
    Set accessDB = daoEngine.OpenDatabase(dbPath)

    ' テーブルからレコードセットを取得
    Set recordSet = accessDB.OpenRecordset("tbl_staff")

    ' データをセルB2から貼り付け
    Sheet1.Range("B2").CopyFromRecordset recordSet

    ' 接続のクローズ
    recordSet.Close
    accessDB.Close
End Sub

コードのポイント

CreateObject("DAO.DBEngine.120") は DAO 12.0 を使用して Access に接続するための定義です。
OpenDatabase でデータベースを開きます。パスは動的に ThisWorkbook.Path を使用しています。
OpenRecordset("tbl_staff") で対象テーブルを開きます。
CopyFromRecordset でセルに一括貼り付けできます。
最後に Close を忘れずに行うことで、接続を正しく終了できます。

注意点

Excel側の参照設定で「Microsoft DAO 3.6 Object Library」や「Microsoft Office xx.x Access database engine Object Library」が必要な場合がありますが、上記のように CreateObject を用いれば参照設定なしでも動作可能です。
Accessファイルの場所が変わる場合は、パスの指定に注意してください。