如何自动删除工作表？

Question

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

Answer 1

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

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

Answer 2

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

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

Answer 3

您可以关闭Excel的显示提醒

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