VBA 401号室:Accessデータベースに接続

ExcelからAccessのデータベースに接続する

Kappo

ExcelでAccessのデータベース（主にテーブルデータ）を使うと結構便利ですよ
この部屋では、まずADOを使ってAccessのデータベースに接続することを
掲載しています。他の部屋では接続後のデータベース上のデータを使うやり方を
掲載しているから合わせて部屋を訪問してくださいね！！
また、一番したの方にコメント欄があるからよかったら質問・感想などメッセージ入れてください

VBA-参照ライブラリを追加する（参照設定）
プログラム（例）

VBA-参照ライブラリを追加する（参照設定）

VBAプログラムで「ADO」が使えるようにライブラリを参照設定で追加する
・ADO＝ActiveX Data Objects

■Excel■
　メニュー->開発->ｺｰﾄﾞの表示
　　↓
■VBAプログラムView■
　メニュー->ﾂｰﾙ->参照設定

☆追加するライブラリ＝Microsoft ActiveX Data Object ### Librasy
　　　　　　　　　　　（###はバージョンによって異なります）

■参照設定-VBAProject ダイアログ■
　Microsoft ActiveX Data Object 6.1 Librasyにレ点->「OK」ボタン

プログラム（例）

コマンドボタンを配置してプログラムを記述する
「CommandButton3」

※ボタンの配置方法は「VBA：描画オブジェクトの名前取得」を参照してください

コマンドボタンがクリックされた時に実行されるプログラム

Dim cnn As ADODB.Connection
Dim mdbPath As String

mdbPath = "C:\Sample.accdb" '接続するAccessファイルのフルパス

Set cnn = New ADODB.Connection

cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.16.0;" _
                            & "Data Source=" & mdbPath & ";"

cnn.Open '接続の確立

'------------------------------

※接続後の処理プログラム

'------------------------------

cnn.Close

'------------------------------
'後片付け
Set cnn = Nothing

このコーディングはおまじない的に使ってます笑