[VBA] 寫一個巨集在每月的第一天新增當月的工作表

 當每個月都需要新增一份全新的工作表時，就可以使用本次的內容搭配上"[VBA] 利用VBA與工作排程器自動更新EXCEL報表"即可實現自動更新報表的功能喔!

Sub MonthUpdate()

    Dim d As Date

    d = Date

       

    If (Day(d) = 1) Then    '如果日期等於1的話'

        Dim sheet As Worksheet

        Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))

 '在最後一張報表之後新增報表'   

        sheet.Name = Year(d) & "." & Month(d) & "." & Day(d) '設定新增的報表名稱為每月的1號'

    End If

End Sub

另外補充，如果想在最後一張報表之前新增報表可以使用

ActiveWorkbook.Sheets.Add Before:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)