Excel 将图纸名称添加为每次运行的日期和增量日期

我使用Excel宏将图纸名称添加为日期。它起作用了

我想让它每天递增

例如，今天2018年9月28日，我点击按钮添加工作表。第二天，当我单击该按钮时，它应该添加一张名为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

---

我更改了日期的列出方式-现在，日期基于从

now（）

函数获得的今天的日期。使用

DateAdd（）

我可以告诉它添加一张明天日期的新工作表

我还更改了第一个

工作表。添加（…）

调用，将新一天的工作表放在前一天的工作表之后，因为这似乎是您想要的

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

---

如果这不起作用，请告诉我-我是在手机上这样做的，因此它可能会有一个打字错误或两个Workbook.Sheets.Add（，w）.Name=Format（DateAdd（Now（），“d”，1），“dd.mm.yyyyy”）现在bro它在行集wTemp=Workbook.Sheets.Add（，w）上给出了一个对象必需错误#424@haiderBhatti lol实际上是我的手机用来引用的unicode

“

字符。vba只接受

“

，所以兄弟，这可能吗？