VBA 保存日によって、ファイル名に「月」を入力

質問

Excel365VBAです。

各月の25日にエクセルで報告書を作成しています。
作成したファイルの提出日は翌月になる為、

ActiveWorkbook.SaveAs Filename:= _
"D:\報告書\" & "報告書（" & Format(NMDate, "e-mm") & ")" & ".xlsx", FileFormat:=xlOpenXMLWorkbook _
, CreateBackup:=False

と、「報告書（4-02)」と翌月を入れて保存しています。

ただ、ブックを作成するのを忘れ、月を越してから保存することがあります。
その場合、提出日が今月になるのですが、VBA上は翌月名で保存される為、作成されたファイルの月を、手動で当月に直しています。

25日から月末までに保存したら、翌月名を入れて保存。
翌月の1日～24日までに保存したら、当月名を入れて保存。
そのような日付を取得しての保存は、可能でしょうか？

回答No.1

f272 · ベストアンサー

d = Date
dd = Day(d)
で日付と日がわかるので
If dd >= 25 Then
Debug.Print Format(d + 6, "e-mm")
Else
Debug.Print Format(d, "e-mm")
End If
こんなふうに処理を分岐させればよい。

お礼

ありがとうございました。
無事にできました。
すごい助かりました。

回答No.2

kkkkkm

以下でA1に適当な日付を入れて希望通りになれば
mDate = Range("A1").Value
を削除して
mDate
を
Date
に変更して利用してみてください。

Sub Test()
Dim mDate As Date
Dim NMDate As Date

mDate = Range("A1").Value

If Day(mDate) < 25 Then
NMDate = mDate
Else
NMDate = DateAdd("m", 1, mDate)
End If

Debug.Print Format(NMDate, "e-mm")

End Sub

お礼

ありがとうございます。
無事に完成しました。
助かりました。