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

VBA - 方法＆＃39;删除＆＃39;工作表失败

1 个答案: