excel - 使用 Excel vba 创建新工作表不起作用

Question

我试过了

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

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

Answer 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 所抑制。