使用VBA取消指定工作薄筛选

jk651a · 发表于 2022-12-13 09:15

怎么使用VBA批量取消指定文件夹全部工作薄里的筛选？

Hontyu · 发表于 2022-12-13 09:18

If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False

liulang0808 · 发表于 2022-12-13 09:19

ActiveSheet.AutofilterMode=False
具体表名可以根据需求调整

3190496160 · 发表于 2022-12-13 11:24

dir取得文件夹下所有文件聚合，然后，用do while 遍历文件夹下的所有文件的所有工作表，用2楼的代码即可，
没有附件只能这么跟你说

jk651a · 发表于 2022-12-14 13:03

3190496160 发表于 2022-12-13 11:24
dir取得文件夹下所有文件聚合，然后，用do while 遍历文件夹下的所有文件的所有工作表，用2楼的代码即可，
...

有附件了，请将测试文件夹所有工作薄内的筛选清除，帮我写一下VBA代码，感谢！！！

3190496160 · 发表于 2022-12-14 15:21

Sub 批量取消筛选()
Application.ScreenUpdating = False
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.xls*")
Do While f <> ""
If f <> ThisWorkbook.Name Then
      Set wb = Workbooks.Open(lj & f, 0)
      For Each sh In wb.Worksheets
         If sh.FilterMode = True Then ''如果是处于筛选状态
            sh.ShowAllData ''取消筛选状态
         End If
         'If sh.AutoFilterMode Then '''如果有筛选
            'sh.AutoFilterMode = False ''取消筛选
         'End If
      Next sh
      wb.Close True
End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-12-14 15:22

测试.rar (36.97 KB, 下载次数: 4)

jk651a · 发表于 2022-12-14 16:26

3190496160 发表于 2022-12-14 15:22

感谢大佬！！！

		自动登录	找回密码
密码			免费注册