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

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"