アクセス2007 エクセルへエクスポートするファイル名に日付を付けたい

こんにちは。

アクセス2007を使用しています。
テーブルをエクセルにエクスポートし、
さらにそのファイル名に日付をつけたいのですが
なかなかうまくいきません。

以下のように記述しました。

Private Sub コマンドボタン_Click()
'Excelファイルへエクスポート
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "テーブル名", "転送先フォルダパス" & Format(Now(), "yyyymmdd") & ".xls"
End Sub

Format関数を入れないとうまく行くので
その部分が間違っているのだろうと思うのですが
どうしていいのかわかりません。

どなたか原因をご教授いただけると助かります。
よろしくお願いいたします。

No.3 ベストアンサー 回答者： cistronezk 回答日時： 2009/08/24 20:33

回答２の訂正です。

誤：
＞DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, Format(Now(), "yyyymmdd") & ".xls"

正：
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "テーブル名", Format(Now(), "yyyymmdd") & ".xls"

テーブル名の指定が抜けていました、失礼しました。

この回答へのお礼

できました！！！

おっしゃる通りに転送先パスを抜いたら
データベースと同じところにエクスポートされました！！！！

やはり転送先パスの記述がおかしいということですね！

目からウロコです！
あとは転送先をどう指定すればいいのか、いろいろ試してみます。

ありがとうございました！！！

お礼日時：2009/08/25 09:13

No.2 回答者： cistronezk 回答日時： 2009/08/24 18:12

むしろ「"転送先フォルダパス"」に問題があるのでは？

ためしに

Private Sub コマンドボタン_Click()
'Excelファイルへエクスポート
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, Format(Now(), "yyyymmdd") & ".xls"
End Sub

でもだめですか？

No.1 回答者： sunbravery 回答日時： 2009/08/24 16:23

＞Format関数を入れないとうまく行くので

でしたら、"yyyy/mm/dd" では？

この回答へのお礼

早速のご回答ありがとうございます。

おっしゃるとおりにやってみたのですが
「型が一致しません」とエラーがでます。

引き続き調べてみます。
ありがとうございました。

お礼日時：2009/08/24 16:36