変数を使ってのフロッピーへの保存

質問

データをバックアップする事が目的です。
ファイル名としては、その日の日付と時間を用います。
例えば　2002/09/18 15:00:00.txtといった感じです。

Now関数を使って　現在の時刻を取得します。
TransferTextメソッドを用いて、フロッピーディスクにバックアップをとります。

DoCmd.TransferText acExportDelim,"","tbl名","a:\○○○,True,""

Dim　T　As　Variant
T = Now()
を事前に定義しておいて、○○○部分に　Tを入れるだけじゃ駄目なのですかね。

教えてください　お願いします。

回答No.1

aptiva · ベストアンサー

ファイル名の部分だけについてアドバイスいたします、その他の部分は検証しておりません。

DoCmd.TransferText acExportDelim,"","tbl名","a:\" & format(T,"yyyymmdd hhnnss") & ".txt",True,""
のようにしてはどうでしょうか？
20020918 150000.txt、という感じのファイルが出来ると思います。
ファイル名に"/"や":"は使えませんので。

お礼

ありがとうございます。
大変わかりやすい説明でした。
Format関数を用いればイイのですか。
早速試したトコロ　簡単にうまくいきました。

回答No.2

maruru01

こんにちは。maruru01です。

方法はNo.1の人のでいいと思いますが、ちょっと気になったので。
なぜ、バックアップする日時を事前に定義しておくのでしょうか。
TransferTextメソッドを実行するその時の日時を使用して、

DoCmd.TransferText acExportDelim,"","tbl名","a:\" & Format(Now(),"yyyymmdd hhnnss") & ".txt",True,""

とする方がいいのではないでしょうか。

お礼

ありがとうございます。
別に定義する必要ありませんね。