マクロExcel2003日付を付けてファイルを保存

質問

Excel2003でマクロを利用して、日付を付けた形でファイルを保存するようにしたいです。
条件としては、
（１）ファイルをz:\に「【ここに日付を八桁で保存】File1.xls」とする　例えば、20111127File1.xls
（２）上書きする場合も、確認をせずに強制的に保存
（３）保存が終わったら、強制的にExcel2003を終了する
という具合に書きたいです。

マクロの保存でやってみてわかっている所まで書きました。

Sub SaveEnd()

ActiveWorkbook.SaveAs Filename:="Z:\【？？？？】file1.xls", FileFormat:=xlNormal
　　【上書き保存で、確認をしない】

　　【Excel2003の強制終了】

End Sub

どのように調べれば良いかも含めて、ご指導をいただければ幸いです。

回答No.1

keithin · ベストアンサー

sub macro1()
　application.displayalerts = false
　activeworkbook.saveas filename:="z:\" & format(date, "yyyymmdd") & "file1.xls"
　application.quit
end sub
といった具合で。

＞調べ方

ぶっちゃけ，ここのような掲示板で知識のあるヒトに「正しいマクロ」を聞いて，それを「猿になってコピーしました，動かしてみました，動きましたラッキー♪」で終わるんじゃなく，何やってるのかちゃんと勉強してご自分の知識として「ぬすむ」のが，一番カタイ方法です。

ネットでさ迷えば勿論
・アプリケーションを終了する方法
・日付を名前に使ってファイルを保存する方法
・警告を出さない方法
などをそれぞれ見つけることは，さほどムズカシイ事じゃありません。

でも，それらをどう組み合わせて「今アナタがヤリタイと思った事に，ぴったし当てはめるのか」を，ドンぴしゃで解説してくれてる本やネットのページは，そうそう当たるモンじゃありません。

上述したような「単品技術」を参考にすれば，ご自分でしっかり組み上げることが出来るだけの慣れ（スキル）があるか無いか（通常はそういうのがあることを期待するわけですが）が，一つのブレイクスルーになるという事だと思います。

お礼

>何やってるのかちゃんと勉強してご自分の知識として「ぬすむ」のが，一番カタイ方法です。

非常に適切で、本質的なご回答ありがとうございました。
私はまだ、「うごく、ラッキー」程度のレベルですがいただいたアドバイスを大切にして学びたいと思いました。