Question

我在excel文件中运行一个宏，用于操作不同的文件。打开文件后，我想滚动浏览每个工作表并删除一个工作表，如果命名为＆＃34; For Export＆＃34;以下剪辑在某一点上起作用，不确定发生了什么变化。我现在得到一个＆＃34;对象需要＆＃34;工作表上的错误删除行。

For Each S In ThisWorkbook.Sheets
MsgBox (S.Name)
    If S.Name = "For Export" Then
    Application.DisplayAlerts = False
    Workbook.Worksheets(S.Name).Delete
    End If
Next S

Answer 1

如果您更改＆＃34; Workbook.Worksheets（S.Name）。删除＆＃34;到＆＃34; S.Delete＆＃34;它应该删除它。

Answer 2

尝试，

For Each S In ThisWorkbook.Sheets
    MsgBox (S.Name)
    If S.Name = "For Export" Then
        Application.DisplayAlerts = False
        S.Delete
        Application.DisplayAlerts = true
        exit for
    End If
Next S

Answer 3

这很有效，谢谢。

For Each S In ActiveWorkbook.Sheets
    If S.Name = "For Export" Then
    Application.DisplayAlerts = False
    S.Delete
    End If
Next S

Answer 4

将您的突破线更改为： ThisWorkbook.Worksheets（S.Name）.Delete

根据条件语句删除工作表

4 个答案: