VBA – 方法'删除'工作表失败

我做了一个VBA程序，现在一切都完成了，我需要彻底清理我的工作簿来多次运行程序。 为此我使用这个代码：

Sub deleteWorksheets() Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In ThisWorkbook.Worksheets ws.Delete Next ws Application.DisplayAlerts = True End Sub 

但方法删除每次都失败。 我试图激活之前，并设置可见的属性，似乎没有任何工作。

Answer 1

您需要让至less一个工作表经受清除。 你不能全部删除它们。

尝试这样的事情：

 For Each ws In ThisWorkbook.Worksheets If ThisWorkbook.Worksheets.Count > 1 Then ws.Delete Else ' in case you want to wipe out whatever was in the sheet ws.Cells.Clear End If Next ws