ACCESS2000 クエリをテーブル化するマクロ(VBA)おしえてください

こんにちは。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1801262
の質問者です。コレの続きを教えてください。

まとめますと、クロス集計クエリや、ユニオンクエリをそのまま扱うと、データや計算式がからまってエラーになったり、処理が遅かったりするので、テーブル化してからいじりたいのです。
マクロは
データベース変換
変換の種類…インポート
データベースの種類…MS ACCESS
データベース名…L:\パス\パス\ファイル名.MDB
オブジェクトの種類…クエリ
オブジェクト名…クエリ名
変換先名…テーブル名
テーブル構造のみ変換…いいえ

としてみましたが、クエリとしてインポートされてしまいます。
いちどＣＳＶか何かでエクスポートしてから、テキスト変換するという手もありますが、もっとスマートな方法がありましたら教えてください。
VBA も勉強中なので、VBAでお答えいただいてもけっこうです。
よろしくお願いします。

No.1 ベストアンサー 回答者： O_cyan 回答日時： 2006/03/22 14:42

>クエリとしてインポートされてしまいます。

指定の仕方が違います。
オブジェクトの種類をクエリとするとクエリ自体がインポートされてしまいます。クエリの結果をテーブルにインポートしたい場合はオブジェクトの種類をクエリではなくテーブルとしなくては出来ません。
VBは
Function Mcr1()
On Error GoTo Mcr1_Err

DoCmd.TransferDatabase acImport, "Microsoft Access", "L:\パス\パス\ファイル名.MDB", acTable, "クエリ名", "テーブル名", False

Mcr1_Exit:
Exit Function
Mcr1_Err:
MsgBox Error$
Resume Mcr1_Exit
End Function
テーブル名・クエリ名は変更してください。

この回答へのお礼

いつもありがとうございます！！！
できました！！！！

お礼日時：2006/03/22 15:35