vba - 每次单击按钮时都会添加一个新的 Excel 工作表的循环

Question

我试图在每次单击按钮时添加一个新的 Excel，因为该工作表是根据日期命名的。但是，我收到一条错误消息“无法将工作表重命名为与另一个工作表、引用的对象库或 Visual basic 引用的工作簿相同的名称。”

Dim szTodayDate As String
szTodayDate = Format(Date, "mm.dd")
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add(After:= _
         ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = szTodayDate

我想要创建一个名为 mm.dd.i 的新工作表。 i 指的是我使用按钮创建新工作表的次数。抱歉，我是 VBA 新手。

谢谢您的回答。加里的学生做了最有效率的一个。已解决。

Answer 1

怎么样:

Sub sjvyv()
    Dim szTodayDate As String
    szTodayDate = Format(Date, "mm.dd")
    Dim ws As Worksheet, i As Long
    ReDim N(1 To Sheets.Count)

    i = 1
    For Each ws In Sheets
        If Left(ws.Name, 5) = szTodayDate Then
            N(i) = Mid(wsname, 6)
            i = i + 1
        End If
    Next ws

    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = szTodayDate & "." & i
End Sub