0

我试过了

Private Sub CreateSheet()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add(After:= _
         ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "Tempo"
End Sub

但没有任何反应,除了工作簿中的最后一张工作表被激活。

4

1 回答 1

1
Function createSheet()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add(After:= _
         ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "Tempo"
End Function

您是否已经有一张名为“Tempo”的工作表?您不能创建多个具有相同名称的工作表,这会导致错误。错误消息可能被先前的On Error-statement 所抑制。

于 2021-09-17T13:57:28.380 回答