使用数组删除工作表

Question

我正在清理工作簿并重置所有工作表。我目前正在使用一个使用数组的删除和添加函数。我的数组在下面的vba中不起作用。

shtnm = Array("FileNet", "CusReq", "DocNames")
For Each Shet In ActiveWorkbook.Worksheets
If Sheet.name = shtnm Then
Application.DisplayAlerts = False
Worksheets(shtnm).Delete
Application.DisplayAlerts = True
End If
Next Sheet

我们非常感谢您对如何做到这一点的任何见解，或是一种更好的方法来清理工作表，使其没有数据或格式。

Answer 1

试试这个：

Dim Holidays As Variant
Holidays = Array("Sheet1", "Sheet3", "Sheet5")
For Each Sheet In ThisWorkbook.Sheets
If UBound(Filter(Holidays, Sheet.Name)) > -1 Then
Application.DisplayAlerts = False
Sheet.Delete
Application.DisplayAlerts = True
End If

Next