アクセスVBA テーブル名を変数とするクエリ実行・エクスポート

質問

テーブル Ｘ（フィールド１～３０）を対象とするクエリ Ｙがあります。
クエリ Ｙは、フィールド１の値が ＢＢＢであるレコードの、フィールド３、５、７を抽出します。
クエリ Ｙの実行結果をエクセルファイル Ｚにエクスポートします。

Ｘと同一の構成である Ｘ１～Ｘ１０という複数のテーブルから一つを選択して、クエリＹを実行し
て、エクセルファイル Ｚにエクスポートしたいのですが、VBAでは、どのように記述するのでしょうか？

フォーム Ｆのテキストボックス Ｔに入力して、テーブルを指定（変数）したいのです。

上記が可能な場合、続けて Ｚにエクスポートすることはできるのでしょうか？
エクスポート用のテーブルを一時的に作成しなければならないのでしょうか？

説明下手で申し訳ございません。お手数ですが、ご教示ください。よろしくお願いします。

回答No.1

Gin_F · ベストアンサー

> Ｘと同一の構成である Ｘ１～Ｘ１０という複数のテーブルから一つを選択して、クエリＹを実行し
> て、エクセルファイル Ｚにエクスポートしたいのですが、VBAでは、どのように記述するのでしょうか？

クエリX のSQL文を変更してやればいいですね。

Dim dbs As DAO.Database
Dim qrdef As DAO.QueryDef

Set dbs = Currentdb
Set qrdef = dbs.QueryDefs("クエリY")

qrdef.SQL = Replace(Expression:=qrdef.SQL _
　　　　　　　　, Find:="テーブルX" _
　　　　　　　　, Replace:="テーブルX1" _
　　　　　　　　, Compare:=vbTextCompare)

Set qrdef = Nothing
Set dbs = Nothing

これで変更することができますのであとは、クエリX を
TransferSpreadsheet メソッドを使ってエクスポートしてください。

お礼

ありがとうございます。さっそく試してみます。

補足

すべて上手くいきました。ありがとうございます。また、よろしくお願いします。