VBA：【DoCmd】Accessのテーブルのエクスポート、クエリをテーブルとしてエクスポートする方法
ここではテーブルのエクスポート、クエリをテーブルとしてエクスポートする方法について紹介します。
◆テーブルのエクスポート、クエリをテーブルとしてエクスポートする方法法
以下を実行すると、「newAccessPath」で指定したファイルに「TblName」が「newTblName」として作成されます。
もし同名のファイルがある場合はテーブルは上書きされます。
「TblName」にクエリ名を入れるとクエリがテーブルとしてエクスポートされます。
※クエリをテーブルとしてエクスポートすると元のテーブルにあったインデックスは引き継がれません。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private Sub テーブルエクスポート_Click() Dim newAccessPath As String Dim newTblName As String Dim TblName As String newAccessPath = "C:\Users\VBA\Newファイル.accdb" newTblName = "T_エクスポートデータ" 'コピー先のファイルでのテーブル名' TblName = "T_最新データ" 'ツールの元テーブル。ここをクエリにするとクエリがテーブルとしてエクスポートされる。' DoCmd.TransferDatabase acExport, "Microsoft Access", newAccessPath, acTable, TblName, newTblName MsgBox "エクスポート完了" End Sub |
警告メッセージ
実行時に「セキュリティに影響を及ぼす可能性のある問題が検知されました」というメッセージが出ます。
「開く」を押すことでエクスポートが続行されます。
|
警告メッセージを出ないようにする方法
Accessの「ファイル」→「オプション」→「セキュリティセンター」の「マクロの設定」で「すべてのマクロを有効にする・・・」にチェックをいれればメッセージは出なくなりますが、セキュリティ上推奨されておらず、職場によっては変更できない場合があります。
