Excel 从.xlsm文件中删除特定工作表

尝试使用以下代码删除工作表。在删除行上抛出“需要对象”错误。我在这一行尝试了许多变体，即s.delete、sheets.s.delete、worksheets.delete等

Dim s As Worksheet
'Look for existing sheets named "For Export
'If found, delete existing sheet
For Each s In ActiveWorkbook.Sheets
    If s.Name = "For Export" Then
        Application.DisplayAlerts = False
        Workbook.Worksheets.Item(s.Name).Delete        
    End If
Next s

请尝试以下代码：

Sub deleteWorksheet()
    Dim s As Worksheet, t As String
    Dim i As Long, K As Long
    K = Sheets.Count

    For i = K To 1 Step -1
        t = Sheets(i).Name
        If t = "For Export" Then
                Application.DisplayAlerts = False
                Sheets(i).Delete
                Application.DisplayAlerts = True
        End If
    Next i
End Sub

请尝试以下代码：

Sub deleteWorksheet()
    Dim s As Worksheet, t As String
    Dim i As Long, K As Long
    K = Sheets.Count

    For i = K To 1 Step -1
        t = Sheets(i).Name
        If t = "For Export" Then
                Application.DisplayAlerts = False
                Sheets(i).Delete
                Application.DisplayAlerts = True
        End If
    Next i
End Sub

那么：

Sub poiuyt()
    Dim s As Worksheet
    For Each s In ActiveWorkbook.Sheets
      If s.Name = "For Export" Then
        Application.DisplayAlerts = False
            s.Delete
        Application.DisplayAlerts = True
      End If
    Next s
End Sub

那么：

Sub poiuyt()
    Dim s As Worksheet
    For Each s In ActiveWorkbook.Sheets
      If s.Name = "For Export" Then
        Application.DisplayAlerts = False
            s.Delete
        Application.DisplayAlerts = True
      End If
    Next s
End Sub

---

导出时的

是否可能重复

工作簿中仅存的工作表？工作簿中始终需要至少有一个工作表。否则，

s.Delete

应执行此操作。s.Delete是原始命令，但出现错误。它不是将

ActiveWorkbook

更改为

thishworkbook

（假设代码运行的工作簿是工作表所在的工作簿。导出时可能存在的重复项是

工作簿中唯一的工作表？工作簿中始终需要至少有一个工作表。否则，

s.Delete

应执行此操作。s.Delete是原始命令，但出现错误。它不是工作簿中唯一的工作表。）将

ActiveWorkbook

更改为

thiswoolk

（假设代码运行的工作簿位于工作表所在的位置。您还可以解释您在那里做了什么。您还可以解释您在那里做了什么。