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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы