用不同的名稱保存工作簿vba

Question

我需要幫助來開發Excel VBA中的代碼，每個月在同一位置保存一個新的woorkbook，但每個月以不同的名稱保存。 不必每月更改代碼。

Answer 1

每月運行一次：

Sub dural()
    Dim s As String
    s = Format(Now(), "mmmm_yyyy") & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=s
End Sub