代码之家 › 专栏 › 技术社区 › Error 1004

循环工作表并删除

vba excel

2

Error 1004 · 技术社区 · 7 年前

我试图循环工作表和删除不需要的。问题是,我想循环和删除基于VBA编辑器(名称),但我得到一个错误。回路工作正常。任何帮助都将不胜感激。

Sub Remove_Sheets()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets

        If ws.Name = wsOriginal Or ws.Name = wsRecords Then
        Else
            ws.Delete
        End If

    Next ws

End Sub

图片:

1 回复 | 直到 7 年前

1

5

Vityata 7 年前

If ws.Name = wsOriginal Or ws.Name = wsRecords Then

使用:

If ws.CodeName = "wsOriginal" Or ws.CodeName = "wsRecords" Then