VBA - 工作表的方法"删除"失败

Question

我做了一个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

您需要让至少一个工作表在清除后继续存在.你无法全部删除它们.

尝试这样的事情:

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