エクセルのファイルを、A2セルに入っている日付をファイル名として、保存したい。

質問

エクセルのＶＢＡでファイルに名前を付けて、指定場所に保存したいのですが、過去の質問を読んでもよく分からなかったので教えてください。

Ａ２セルに、2007/07/26 という日付が入っています。
この日付をファイル名として保存したいのですが、日付の形式は20070726とか、070726にしたいです。

ファイルの保存場所パスは、例えば、
S:\AAA\BBB\CCC\DDD
というフォルダの中です。

ActiveWorkbook.SaveAs のあとにどのように続ければよいのでしょうか？
丸投げで申し訳ありませんがよろしくお願いいたします。

回答No.1

merlionXX · ベストアンサー

Sub test1()
Dim x As String
x = Format(Sheets("Sheet1").Range("A1"), "YYYYMMDD") & ".xls"
ActiveWorkbook.SaveAs Filename:="S:\AAA\BBB\CCC\DDD\" & x
ActiveWorkbook.Close
End Sub

Sドライブってはじめてみましたが、こんな感じでしょうか。

お礼

すばやいご回答ありがとうございました。うまくいきました。

会社のネットワーク上のコンピュータだと、マニュアルとは微妙に食い違うこともあり、それだけで混乱してしまう自分が情けないです。
もっと勉強します。

マクロが成功したので、後任者への引継ぎが容易になり、私も心置きなく夏季休暇が取れそうです。
ありがとうございました。