VBA - 创建新工作表并重命名

Question

我正在尝试插入一个新工作表，然后只需一个按钮即可将其重命名为当前月份和年份。有关一些额外信息:我计划稍后删除此按钮，以便它是自动的。

Private Sub CommandButton1_Click()

  nowMonth = Month(Now)
  nowYear = Year(Now)

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)Name = "nowMonth & , & nowYear)

End Sub

Answer 1

这将做到:

nowMonth = Month(Now)
nowYear = Year(Now)

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveWorkbook.Sheets(Worksheets.Count).Name = nowMonth & "," & nowYear