スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
クエリを別のmdbへエクスポートする場合、元のテーブルが存在しないためにエクスポートされたクエリは実行できません。
また、クエリのレコードを削除したりを編集したい場合など一旦テーブルに変換することが1つの方法です。
このような変換はDoCmdのTransferDatabaseメソッドで実行できます。サンプルコードではNorthwind.mdbのクエリ「カタログ」をテーブル「カタログＴ」に変換しています。

Public Sub FileExport1()
　Dim path As String
　path = "D:\"
  DoCmd.TransferDatabase acExport, "Microsoft Access", path & _
             "Northwind.mdb", acTable, "カタログ", "カタログＴ", False
End Sub

●動作確認●
テーブルに「カタログT」が作成されていることを確認してください。

●補足●
上記の処理はマクロのアクション「データベース変換」を使用しても可能です。