エクセル保存時に自動で日付

お世話になります。

エクセル２００３で保存するときに、
ファイル名の頭に、あるセルの日付を毎回打たなくても自動でつけることってできますか？
マクロでもかまいませんが。

たとえばA1に061212と入っていたら、
そのブックを保存するときに、061212 業務日報って自動で保存時の名前に出るように
なるでしょうか？

No.3 回答者： imogasi 回答日時： 2006/12/30 23:04

#1,#2には、当然・常識ということかもしれないが、イベントのことがかかれてないが

http://www.keep-on.com/excelyou/2002lng4/200209/ …
に有るように（*）
VBE画面の
プロジェクトエクスプローラーの
VBAProjectの
ThisWorkbookの
Private Sub Workbook_BeforeSave(ByVal ・・
イベントを使うのでしょう。
もうひとつは
ActiveWorkbook.SaveAs　"ブック名"
を使うことです。
*のThisWorkbook.SaveAs
を
ActiveWorkbook.SaveAs　"ブック名"
にすればよいのではないでしょうか。
その他
http://www.big.or.jp/~seto/vbaref/vbaref10.htm
の（４）

この回答へのお礼

よくわかりました。ありがとうございます。

お礼日時：2006/12/30 23:26

No.2 ベストアンサー 回答者： marbin 回答日時： 2006/12/30 22:13

#1です。

一部訂正です。

fmei = ThisWorkbook.Path & Sheets("Sheet1").Range("A1").Text & "業務日報.xls"
↓
fmei = ThisWorkbook.Path &　"\" & Sheets("Sheet1").Range("A1").Text & "業務日報.xls"

失礼しました。

この回答へのお礼

できました。ありがとうございます。
勉強になります。

お礼日時：2006/12/30 23:24

No.1 回答者： marbin 回答日時： 2006/12/30 22:11

マクロでしたらこんなかんじでしょうか。

Dim fmei As String
fmei = ThisWorkbook.Path & Sheets("Sheet1").Range("A1").Text & "業務日報.xls"
ThisWorkbook.SaveAs fmei