エクセルVBAでAccessデータベースと接続する最もシンプルなプログラム

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルVBAからAccessデータベースを操作する方法についてシリーズでお伝えしています。

前回は最初の記事ということでコチラ。

なぜエクセルとAccessデータベースを連携するのが良いのか、またその際の注意点

エクセルと連携するデータベースの第一候補であるMicrosoft Access。今回は、なぜエクセルとAccessを連携するのが良いのか、またその際の注意点についてお伝えしたいと思います。

エクセルVBAとAccessを連携するメリットと注意点についてお伝えしました。

さて、今回からいよいよ実際にエクセルVBAからAccessデータベースに接続をしていきたいと思います。

接続をして切断するだけの超簡単プログラムです。

では行ってみましょう！

Accessデータベース内にテーブルを準備
ADODB.Connectionオブジェクトでデータベースに接続する
ADODBライブラリを追加する
Accessデータベースに接続するVBAプログラム
まとめ
連載目次：エクセルVBAでエクセルからAccessデータベースを操作する

Accessデータベース内にテーブルを準備

まずはAccessでこんなテーブルをを作ってみました。

都道府県ごとの面積や人口、区市町村数などをまとめたデータです。テーブル名は「データ」という名前です。

このテーブルを含むAccessデータベースファイルを「test.accdb」というファイル名で、今回のエクセルVBAを記述したファイルと同じフォルダに格納しました。

エクセルVBAからこのデータベースへの接続を試みていきます。

ADODB.Connectionオブジェクトでデータベースに接続する

Accessデータベースと接続をしてやり取りをする際には、ADODB.Connectionオブジェクトを使います。

ADODB…？どこかで聞いたような名前ですね…

ADOはActiveX Data Objectsの略で

ADOとは、Microsoftが提唱しているデータアクセス技術のことである。
引用：Weblio辞書-ADO

ADOはその目的によりさらにいくつかに区別されますが、そのうちデータの操作をする場合に使用するのがADODBとなります。

さらにさらにADODBはその目的に応じていくつかのオブジェクトを使い分けることになりますが、AccessをはじめとしたOracle、MySQLなどの各種データベースの接続をする際にはADODB.Connectionオブジェクトを使います。

このADODB.ConnectionオブジェクトがAccessデータベースとエクセルVBAの橋渡しの役割を果たします。

ちなみに、別記事でUTF-8のCSVを取り扱う際にはADODB.Streamオブジェクトを使うということをお伝えしていましたね。

文字化けよさようなら！エクセルVBAでUTF-8のCSVを読み込む方法

エクセルVBAのLine Input命令でUTF-8のCSVファイルを取り込むと文字化けを起こします。今回は、ADODB.Streamを使ってUTF-8のCSVファイルを取り込む方法についてお伝えします。

ADODBライブラリを追加する

その前に、ADODB.Connectionを使うためには、ADODBライブラリを追加する必要があります。

Visual Basic Editorのメニューから「ツール」→「参照設定」を開いて、ライブラリの中から「Microsoft ActiveX Data Objects x.x Library」を見つけてチェックを入れます。執筆時のバージョンは「2.8」ですが、最新のものを選べばOKです。

Accessデータベースに接続するVBAプログラム

では、実際にAccessデータベースに接続するVBAプログラムを書いてみましょう。

Sub ConnectDB()

Dim strFileName As String
strFileName = "test.accdb" 'データベースのファイル名

Dim adoCn As Object
Set adoCn = CreateObject("ADODB.Connection") 'ADODBコネクションオブジェクトを作成
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & strFileName & ";" 'Accessファイルに接続

adoCn.Close 'コネクションのクローズ
Set adoCn = Nothing  'オブジェクトの破棄

End Sub

以下で解説をしていきますね。