以不同的名称保存工作簿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