エクセルファイル名に更新日時を入れたいです。

いつもお世話になります。
頻繁に更新するファイルは、ファイル名に
●●●０４０５１１．ｘｌｓ
と更新した日付を付けています。
このファイル名の日付を更新の度に自動的に修正する方法はありませんでしょうか。
ファイル名の変更をついつい怠ってしまいます。
宜しくお願いします。

No.2 回答者： yochi 回答日時： 2004/05/26 20:12

マクロの知識はおありですか？

多少分かれば簡単に出来ますが。
例えば、終了するとき自動で「○○○20040526.xls」
で保存が出来ます、もちろん日付（20040526）はＰＣのカレンダーにより更新し自動でくっつきます。
そのサンプルを下記に記します。
エクセルのＶＢＡの標準モジュールに書き込めば動きます。
Auto_Close　は終了時に実行されるコードです。

【マクロサンプル】

Sub Auto_Close()
A = Date　　　　　　　　　　
B = Format(A, "yyyymmdd")
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\yochi\デスクトップ\○○○" & B & ".xls"
End Sub

ちなみに、C:\Documents and Settings\yochi\デスクトップ\　は保存するフォルダの場所ですのでお持ちのＰＣに合わせて記述して下さい。
モジュールに記述出来たら終了してくださいすると、
「○○○20040526.xls」で勝手に保存されます。
更にそれを開きＰＣの日付を変更しながら試すと良く分かります。
日付が変われば開いて終了するたびに保存ファイルが増えます。
以上お試しください。

No.1 回答者： popesyu 回答日時： 2004/05/11 12:44

たとえばエクスプローラーで表示から詳細を選びますとタイムスタンプが確認できますが、これではダメなんでしょうか。

そもそもわざわざファイルネームを変更させるのが面倒なために属性としてのタイムスタンプというものがある訳ですし。

もしファイルネームにつけたいということであればVBAで書いてしまえば簡単にできます。ほんの数行程度のコードで済みますが。

この回答へのお礼

回答ありがとうございます。
このファイルは週に数度、３者間の間で更新しながら使用しているもので、こちらのみならず先方での変更も強要している状況です。
誤って上書きしてしまった事もあり、自動的に変更できればそれも無くなると思いまして、質問させて頂いた次第です。
もし方法があるのなら、是非お教え頂きたく存じます。

お礼日時：2004/05/11 16:29