如何使用visual basic删除多个excel文件的过滤器？

Question

我有大约500个excel文件，大部分都有过滤器。现在我需要将所有信息放在一张纸上。我找到了如何将所有内容放在一张纸上，但带过滤器的书籍仅使用过滤器复制信息，我需要全部。

所以，我需要删除所有excel文件的过滤器。重要（并非所有文件都有过滤器）

感谢您的帮助;）

Answer 1

在复制数据之前，您应该使用：

If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
End If

这将关闭过滤器。

Answer 2

将删除所有打开的工作簿上的任何过滤器，玩得开心：）

sub try_this()
dim wb as workbook
dim sh as worksheet

for each wb in workbooks
   for each sh in wb.worksheets
      sh.AutoFilterMode = False
   next
next

end sub