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ファイルの場所が変わる場合は、パスの指定に注意してください。
応用例
この記事でご紹介したコードは、Access側のテーブル名や貼り付けるセル、貼り付け先シートなどを自由に変更することで、さまざまな用途に応用できます。たとえば、別のテーブルを指定して複数のExcelシートにデータを分けて取り込むといった使い方も可能です。
まとめ
Accessに保存されたデータをExcel VBAで読み込むことで、レポートの自動化や集計作業の効率化が図れます。ExcelとAccessの連携を一度習得しておくと、日常業務の自動化が一気に進みますので、ぜひ今回のサンプルコードをご活用ください。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
