如何通过VBA代码批量删除文件夹内Excel文件中除Sheet1外的工作表？

以下是修正后的VBA代码，可实现批量处理指定文件夹内的所有.xlsx文件，保留每个文件中的Sheet1并删除其他工作表：

Sub RunOnAllFilesInFolder()
    Dim folderName As String, eApp As Excel.Application, fileName As String
    Dim wb As Workbook, currWs As Worksheet, currWb As Workbook
    Dim fDialog As Object: Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    Set currWb = ActiveWorkbook: Set currWs = ActiveSheet
 
    ' 选择存储文件的文件夹
    fDialog.Title = "选择目标文件夹"
    fDialog.InitialFileName = currWb.Path
    If fDialog.Show <> -1 Then Exit Sub ' 用户取消选择则退出程序
    folderName = fDialog.SelectedItems(1)
    
    ' 创建后台Excel进程（不可见）
    Set eApp = New Excel.Application
    eApp.Visible = False
    eApp.DisplayAlerts = False ' 关闭删除工作表的确认提示
    eApp.ScreenUpdating = False ' 关闭后台进程的屏幕刷新，提升效率
    
    ' 遍历文件夹内所有.xlsx文件
    fileName = Dir(folderName & "\*.xlsx")
    Do While fileName <> ""
        ' 更新状态栏显示进度
        Application.StatusBar = "正在处理: " & folderName & "\" & fileName
 
        Set wb = eApp.Workbooks.Open(folderName & "\" & fileName)
        
        ' 删除除Sheet1外的所有工作表
        Dim xWs As Worksheet
        ' 倒序遍历工作表，避免因集合元素变化导致漏删
        For i = wb.Worksheets.Count To 1 Step -1
            Set xWs = wb.Worksheets(i)
            If xWs.Name <> "Sheet1" Then
                xWs.Delete
            End If
        Next i
        
        wb.Close SaveChanges:=True ' 保存并关闭工作簿
        Debug.Print "已处理: " & folderName & "\" & fileName
        fileName = Dir()
    Loop
    
    ' 清理资源
    eApp.DisplayAlerts = True
    eApp.ScreenUpdating = True
    eApp.Quit
    Set eApp = Nothing
    Set wb = Nothing
    
    ' 重置状态栏并提示完成
    Application.StatusBar = ""
    MsgBox "所有工作簿处理完成！"
End Sub

关键修改说明 #

• 修复工作簿引用问题：原代码使用Application.ActiveWorkbook，实际应直接用已打开的wb变量，避免激活状态异常导致错误。
• 倒序遍历工作表：删除工作表会改变集合索引，正序遍历可能漏删，倒序可确保所有目标工作表被处理。
• 优化后台进程设置：将DisplayAlerts和ScreenUpdating应用到后台Excel实例eApp，而非主程序的Application，自动跳过删除确认提示，同时不干扰当前Excel窗口。
• 增加取消选择处理：用户取消文件夹选择时直接退出程序，避免后续代码因folderName为空报错。
• 资源清理：处理完成后恢复后台进程默认设置，确保资源正常释放。

内容的提问来源于stack exchange，提问作者Shivam Gupta