自動バックアップ

質問

If MsgBox("保存を開始しますか？", vbOKCancel) = vbOK Then
DoCmd.SetWarnings False
DoCmd.OutputTo acOutputQuery, "勤務状況一覧表", acFormatXLS, "C:\buckup\勤務状況一覧表.xls", flese

DoCmd.SetWarnings True
MsgBox "保存が終了しました。"
End If
このような感じで自動バックアップをさせてるのですが「勤怠状況一覧表」
のあとに日付を追加したいのです。
いろいろやってみてるのですがここの入力は完全なパスと書いてあり、無理なのかなぁと分からなくなってきております。
何か方法等知ってる方、教えていただけませんでしょうか？

回答No.1

DexMachina · ベストアンサー

ファイルのアドレス指定部分にDate$関数を使用してやれば、日付を追加できるのではないでしょうか。
(日付を文字列として含ませる形にして、完全なパスを作成する、と)

<現状>
"C:\buckup\勤務状況一覧表.xls"

<修正>
"C:\buckup\勤務状況一覧表_" & Date$ & ".xls"

なお、OutputToの最後の引数、「flese」は「False」の誤記かと思いますので、ご確認下さい。

お礼

回答ありがとうございます。無事なりました。