年月を付けて、ブックを保存したい

質問

Excel2007でマクロ作成中の初心者です。
毎月、「24年月次報告　年　月.xls 」というブックを作成しています。
以下のコードで、作成しています。
このコードを実行すると、デスクトップの「常勤」というフォルダの中の「一覧表」というフォルダに
「24年月次報告　年　月.xls」 というブックができます。
このコードを修正して、５月中に作成したら、「24年月次報告24年5月.xls」 というブック、
6月中に作成したら、「24年月次報告24年6月.xls」 というブックを作成したいのです。
どのように修正したら、それが実行できるのでしょうか。ご指導お願いします。

Sub 給与計算24年データの保存()
Dim Path As String, WSH As Variant
Set WSH = CreateObject("WScript.Shell")
Path = WSH.SpecialFolders("Desktop") & "\常用\一覧表\24年月次報告"
ActiveWorkbook.SaveAs Path & "　年　月.xls"
Set WSH = Nothing
End Sub

回答No.1

nda23 · ベストアンサー

次のようにしてみたら如何でしょう

Path = WSH.～　’★ここまでは同じ
’和暦の年月で編集する
Path = Path & Format(Date, "ee年m月") & ".xls"
'存在しない場合のみ作成する
If Dir(Path) = "" Then
　　ThisWorkbook.SaveAs Path
End If

お礼

ありがとうございました。完璧にできました。またよろしくおねがいします。