如何自动删除工作表？

【问题标题】：How do I automate the deletion of a worksheet?如何自动删除工作表？
【发布时间】：2013-08-02 15:30:23
【问题描述】：

我正在使用Application.Sheets("Sheet6").Delete 删除工作表，它会导致一个弹出窗口询问我是否确定。如何自动选择删除？

【问题讨论】：

【解决方案1】：

在删除工作表之前更新您的代码以禁用警报显示；然后在删除代码执行后启用警报

Application.DisplayAlerts = False
Sheets("Sheet6").Delete
Application.DisplayAlerts = True

【讨论】：

【解决方案2】：

您可以为 Excel 关闭显示警报

Application.DisplayAlerts = False
Application.Sheets("Sheet6").Delete
Application.DisplayAlerts = True

【讨论】：

【解决方案3】：

在删除之前关闭警报。然后像这样重新打开它们：

Application.DisplayAlerts = False
    Application.Sheets("Sheet6").Delete
Application.DisplayAlerts = True

【讨论】：