- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：アクセスVBA テーブル名を変数とするクエリ実行・エクスポート）
VBAでテーブル名を変数とするクエリ実行・エクスポート方法
このQ&Aのポイント
- VBAを使用してテーブル名を変数としてクエリを実行し、実行結果をエクセルファイルにエクスポートする方法について教えてください。
- また、指定したテーブルから選択されたテーブルを変数として指定してクエリを実行し、エクセルファイルにエクスポートすることは可能でしょうか？
- エクスポート用のテーブルを一時的に作成する必要があるのかどうかも教えてください。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
> Ｘと同一の構成である Ｘ１～Ｘ１０という複数のテーブルから一つを選択して、クエリＹを実行し > て、エクセルファイル Ｚにエクスポートしたいのですが、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 メソッドを使ってエクスポートしてください。
お礼
ありがとうございます。さっそく試してみます。
補足
すべて上手くいきました。ありがとうございます。また、よろしくお願いします。