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

Question

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

我正在使用以下代码.但是,当我运行代码时,弹出的窗口出现,要求我确认删除,我想阻止这一点,只需删除并替换为新的工作表.我想避免发送密钥.

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" 

或者没有错误处理:

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