每次运行时将工作表名称添加为日期和增量日期

Question

我使用 Excel 宏将工作表名称添加为日期。它有效。

我想让它每天增加。

例如，今天在 28-09-2018 我单击按钮添加工作表。第二天，当我单击按钮时，它应该添加一个名称为 29-09-2018 的工作表，而不会从单元格引用中获取值。

Sub datesheets()
Dim i As Integer
i = 1

For Each w In Worksheets
    If w.Name = "26.09.2018" Then
        found = True
        Workbook.Sheets.Add(, ActiveSheet).Name = "26.09.2018" + i
    End If
Next
If found = False Then
        Worksheets.Add(, ActiveSheet).Name = "26.09.2018"
End If

End Sub

Answer 1

我更改了列出日期的方式 - 现在，日期基于您从 Now() 函数获得的今天日期。使用DateAdd()，我可以告诉它添加一张带有明天日期的新表格。

我还更改了第一个 Worksheets.Add(...) 调用，将新的一天的工作表紧跟在前一天的工作表之后，因为这似乎是您打算发生的事情。

Sub datesheets()

    Dim found As Boolean

    Dim w As Worksheet
    For Each w In Worksheets
        If w.Name = Format(Now(), "dd.mm.yyyy") Then
            found = True

            Worksheets.Add(, w).Name = Format(DateAdd("d", 1, Now()), "dd.mm.yyyy")
        End If
    Next w

    If found = False Then
        Worksheets.Add(, ActiveSheet).Name = Format(Now(), "dd.mm.yyyy")
    End If

End Sub