AccessからExcelへエクスポートするときにファイル名を指定したい。

Access2002を使用しています。
Accessで集計した結果をExcelへエクスポートしています。
Accessのフォームで集計する範囲を設定し、コマンドボタンをクリックするとExcelのへエクスポートしています。
このとき、Excelのファイル名を次のように設定したいのですが・・・
　売上表200607.xls
売上表は常に同じで、”200607” が集計する範囲で異なります。
このようなことは可能でしょうか？
以上、よろしくお願いします。

No.2 ベストアンサー 回答者： m3_maki 回答日時： 2006/08/01 14:22

集計する範囲の指定をどのようにしているかわかりませんが、

文字列で [年月] に "200607" と入力していると仮定して

Dim YM As String
YM = Me.年月 '※ 範囲の指定方法によってここを変えます。
DoCmd.TransferSpreadsheet acExport, 8, "Q_URIAGE", "c:\売上表" & YM & ".xls", False, ""

※例
年と月が別のテキストボックスだったら
　YM = Me.年 & Format(Me.月,"00")

日付型で入力しているなら
　YM = Format(Me.開始日,"yyyymm")
のように。

その他の場合、ファイル名決定の元になる情報を補足してください。

この回答へのお礼

回答ありがとうございます。
できました!
大変ありがとうございました。

お礼日時：2006/08/01 14:38

No.1 回答者： m3_maki 回答日時： 2006/08/01 13:26

現在、どのようにエクスポートしていますか？

マクロならその内容（引数も含めて）
VBA なら そのプロシージャを貼り付けてください。

この回答への補足

回答ありがとうございます。コマンドボタンをクリックしたときのVBAの一部です。

DoCmd.TransferSpreadsheet acExport, 8, "Q_URIAGE", "c:\生産総括表.xls", False, ""

現状は「売上表」になっています。これでは毎回書き換わってしまうため、可能ならば質問の通り集計範囲を付けたいのですが・・・。
よろしくお願いします。

補足日時：2006/08/01 13:31