Excel VBA QueryTableを使用して外部データベースを読み込む

Sub 外部データベース読み込み()
Dim 接続文字列 As String
接続文字列 = "OLEDB;" & _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "¥Database1.accdb"
With ActiveSheet.QueryTables.Add(接続文字列, Range("A1"))
.Name = "商品マスター"
.CommandType = xlCmdTable
.CommandText = "商品マスター"
.RefreshOnFileOpen = True
.Refresh
End With
End Sub

3行目～5行目【接続文字列 = “OLEDB;” & _
“Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=” & ThisWorkbook.Path & “¥Database1.accdb”】
接続するデータの種類とデータの場所を接続文字列として指定して変数「接続文字列」に代入します。接続文字列の指定方法についてはこちらをご覧ください。データベースの場所を設定するDate Source【ﾃﾞｰﾀｿｰｽ】にはWorkbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのPath【ﾊﾟｽ】プロパティを使用して「ThisWorkbook」つまり、このコードが記述されているブックと同じ場所（パス）にある「Database1.accdb」を指定しています。

6行目【With ActiveSheet.QueryTables.Add(接続文字列, Range(“A1”))】
QueryTables【ｸｴﾘﾃｰﾌﾞﾙｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドを使用してQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを
追加します。第一引数の接続先を表すConnection【ｺﾈｸｼｮﾝ】には変数「接続文字列」を指定し第二引数の抽出先を表すDestnation【ﾃﾞｨｽﾃｨﾈｰｼｮﾝ】にはA1セルを指定してWith【ｳｨｽﾞ】ステートメントで指定します。

7行目【.Name = “商品マスター”】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのName【ﾈｰﾑ】プロパティを使用してこの接続のデータ範囲に名前を設定します。

8行目【.CommandType = xlCmdTable】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのCommandType【ｺﾏﾝﾄﾞﾀｲﾌﾟ】プロパティを使用して実行するデータベースのタイプを指定します。タイプはXlCmdTypeクラスの定数から設定します。

9行目【.CommandText = “商品マスター”】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのCommandText【ｺﾏﾝﾄﾞﾃｷｽﾄ】プロパティを使用して
抽出する外部データベースのテーブル名を指定します。

10行目【.RefreshOnFileOpen = True】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのRefreshOnFileOpen【ﾘﾌﾚｯｼｭｵﾝﾌｨﾙｵｰﾌﾟﾝ】プロパティにTrueを指定して、ブックを開くたびに外部データベースに接続してデータを更新する
設定にします。

11行目【.Refresh】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのRefresh【ﾘﾌﾚｯｼｭ】メソッドを使用して
各プロパティで設定した内容を反映してQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを更新して
セルにデータを書き込みます。