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

【问题标题】：Delete a worksheet and recreate with the same sheet name删除工作表并使用相同的工作表名称重新创建
【发布时间】：2014-02-07 00:29:05
【问题描述】：

我目前正在尝试删除一个工作表并自动创建一个同名的新工作表。

我正在使用以下代码。但是，当我运行代码时，会弹出窗口要求我确认删除，我想阻止这种情况，只需删除并替换为新工作表。我想为此避免发送密钥。

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

【问题讨论】：

标签： vba excel add worksheet

【解决方案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"

【讨论】：

不用担心，如果它有效，您能否接受答案，以便其他人知道它适用于您的情况（也对我有所帮助）。谢谢，一切顺利。
@tyblu 如果代码行不工作，它仍然继续