EXCEL如何用VB根据日期建立sheet页

Answer 1

    With ThisWorkbook
        .Worksheets.Add after:=.Worksheets(.Worksheets.Count)
        .Worksheets(.Worksheets.Count).Name = Date
    End With

追问

亲：要是一下批量建一个月的呢？

追答

在外面套个循环就可以了

追问

亲：那能写一下吗？

追答

Sub test()
    With ThisWorkbook
        Dim date_begin As Date

        date_begin = CDate("2018/7/1")
        date_end = DateAdd("m", 1, date_begin)
        Do While date_begin < date_end
            .Worksheets.Add after:=.Worksheets(.Worksheets.Count)
            .Worksheets(.Worksheets.Count).Name = date_begin
            date_begin = DateAdd("d", 1, date_begin)
        Loop

    End With
End Sub