VBA：Accessの別ファイルからデータを取込む方法
１．やりたいこと
Accessの別ファイルのテーブルから、SQL文を使って、実行しているAccessにデータを取込みたい。
２．サンプルコード
以下のサンプルコードを実行することで他のファイルのテーブルから、実行しているAccessのテーブルにデータを取り込めます。Insertだけでなく、Update等も可能です。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
Function test01() Dim CDB As DAO.Database 'DAOデータベース用のオブジェクトを宣言' Dim xSQL As String Dim xTmpPath As String Set CDB = CurrentDb '現在のデータベースに接続' '他のAccessファイルのフルパスを指定' xTmpPath = "C:\Users\xxxxxx\DB.accdb" '//Insert' xSQL = "INSERT INTO [T_テーブル](" xSQL = xSQL & "[番号] " xSQL = xSQL & ",[名前] " xSQL = xSQL & ",[科目] " xSQL = xSQL & ",[点数] " xSQL = xSQL & ")" xSQL = xSQL & " SELECT" xSQL = xSQL & "[番号] " xSQL = xSQL & ",[名前] " xSQL = xSQL & ",[科目] " xSQL = xSQL & ",[点数] " xSQL = xSQL & "FROM [T_サンプル] IN '" & xTmpPath & "'" CDB.Execute xSQL 'SQLを実行' CDB.Close 'DBを閉じる' Set CDB = Nothing '接続解除' MsgBox "完了" End Function |
◆関連記事
AccessVBA：【DoCmd】【TransferSpreadsheetメソッド】Excelの取込み(インポート)と出力(エクスポート)
【DoCmd】「TransferSpreadsheet」を使ったExcelの入力(インポート)と出力(エクスポート)の方法について
VBA：【ADO】【取込み】ExcelファイルのAccessテーブルへのインポート・取込み「SQL文」
【VBA】ExcelファイルのAccessテーブルへのインポート・取込み方法。「ADO」と「SQL文」利用。
VBA：【ADO】【取込み】CSVファイルのAccessテーブルへのインポート・取込み「SQL文」
【VBA】CSVファイルのAccessテーブルへのインポート・取込み方法。「ADO」と「SQL文」利用。
