Excel macro Снять фильтры со всех листов в куче файлов - VBA
Формулировка задачи:
Добрый день! Нужна помощь. Есть 1000 файлов эксель *.xls в каждом по 9 вкладок(в некоторых определенная вкладка может отсутствовать) и на каждой стоит фильтр.
У меня есть Add-on RDBMerge который объеденяет по определенной вкладке, но дело в том, что фильтр он не трогает и половина информации не копируется. Можно ли сделать макро который просто пройдется по всем файлам и просто снимет фильтры, сохраняя файл? Заранее спасибо!!
Решение задачи: «Excel macro Снять фильтры со всех листов в куче файлов»
textual
Листинг программы
Function Get_Item(Path_) Set C_is = CreateObject("scripting.dictionary") Dim Path As String Set oFSO = CreateObject("Scripting.FileSystemObject") Dim strFile As String, strFile2 As String Set FSO = CreateObject("scripting.filesystemobject") Set curfold = FSO.GetFolder(Path_) If Not curfold Is Nothing Then For Each fil In curfold.Files If InStr(1, fil.Name, ".xls", vbTextCompare) > 0 Then ' тут код открытия файла и переборки листов End If Next End If Set FSO = Nothing Get_Item = C_is.items End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д