我试图在每次单击按钮时添加一个新的 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 新手。
谢谢您的回答。加里的学生做了最有效率的一个。已解决。
最佳答案
怎么样:
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
关于vba - 每次单击按钮时都会添加一个新的 Excel 工作表的循环,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48867474/