vba 指定文件夹所有excel 解除筛选

您可以使用以下 VBA 代码来解除指定文件夹中所有 Excel 文件的筛选：

Sub RemoveFilterFromAllExcelFiles()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    
    '指定文件夹路径
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("指定文件夹路径")
    
    '循环处理每个 Excel 文件
    For Each objFile In objFolder.Files
        If Right(objFile.Name, 5) = ".xlsx" Or Right(objFile.Name, 4) = ".xls" Then '仅处理 Excel 文件
            Set objExcel = CreateObject("Excel.Application")
            Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)
            
            '循环处理每个工作表
            For Each objWorksheet In objWorkbook.Worksheets
                '检查是否有筛选器
                If objWorksheet.AutoFilterMode Then
                    objWorksheet.AutoFilterMode = False '解除筛选
                End If
            Next objWorksheet
            
            objWorkbook.Close SaveChanges:=True
            objExcel.Quit
            Set objWorkbook = Nothing
            Set objExcel = Nothing
        End If
    Next objFile
    
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

您需要将代码中的"指定文件夹路径"替换为您要处理的文件夹的实际路径，并将其复制到 VBA 编辑器中 (按 Alt + F11 进入)。然后按 F5 运行代码即可。