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