删除工作表并使用相同的工作表名称重新创build

我目前正在尝试删除工作表并自动创build一个具有相同名称的新工作表。

我正在使用下面的代码。 但是，当我运行的代码窗口popup出现要求我确认删除，我想防止这一点，只是删除和replace一张新的工作表。 我想避免发送密钥。

ThisWorkbook.Sheets("Process Map").delete ThisWorkbook.Sheets.Add.Name = "Process Map" 

Answer 1

尝试将DisplayAlerts设置为False（如果这是您想要的默认设置，则返回true。

 Application.DisplayAlerts = False On Error Resume Next ThisWorkBook.Sheets("Process Map").Delete On Error Goto 0 Application.DisplayAlerts = True ThisWorkbook.Sheets.Add.Name = "Process Map" 

或者没有error handling：

 Application.DisplayAlerts = False ThisWorkBook.Sheets("Process Map").Delete Application.DisplayAlerts = True ThisWorkbook.Sheets.Add.Name = "Process Map"