SQLコマンドを使ってテーブル名を任意に指定したい

質問

Accessのテーブル（もしくはクエリー）をExcelにエクスポートしたいのですが、Excelのブック名が同じで、Accessのテーブル名（もしくはクエリー名）が同じだと、同じシートに上書きされますよね。同一ブックにシート名を変えてエクスポートするために、Accessのテーブル名を変えたいのですが、どのようにしたら任意設定できるのでしょうか？下記のコマンドを使用している途中で挫折しました。別の方法でもいいので教えてください。
（記）
Dim SQL As String

SQL = "SELECT （フィールド）INTO （ここを任意のテーブル名に）FROM （クエリーを参照しています）"
DoCmd.RunSQL SQL

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8,（ここを任意のテーブル名に）, （ブック名）

以上。。。

回答No.2

PAPA0427 · ベストアンサー

以下のやりかたでどうでしょう？

DIM SQL AS String
DIM TBL AS String
DIM BOOK AS String

TBL = Me.TEXT_TBL.TEXT
BOOK = Me.TEXT_BOOK.TEXT

SQL = "SELECT (フィールド) INTO " & TBL & "FROM (クエリー)"
DoCmd.RunSQL SQL

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8,TBL,BOOK

フォームを作って、テキストボックスを配置してください。テキストボックスに入力された名前で出来ると思います。

お礼

あ～、なるほど～!!
任意のテーブル名の前を「"」で区切って、また、「"」で始めれば、SQL文がつながるんですね。。。
大変助かりました。ありがとうございました。

回答No.1

maruru01

こんにちは。maruru01です。

どうのように挫折したのでしょうか。

SQL = "SELECT * INTO (新テーブル名) FROM (元のテーブル名またはクエリ名)"
DoCmd.RunSQL SQL

で新規テーブルの作成は出来ると思いますが。
何がどうダメだったのでしょうか。