Excel macro Снять фильтры со всех листов в куче файлов - VBA

Формулировка задачи:

Добрый день! Нужна помощь. Есть 1000 файлов эксель *.xls в каждом по 9 вкладок(в некоторых определенная вкладка может отсутствовать) и на каждой стоит фильтр. У меня есть Add-on RDBMerge который объеденяет по определенной вкладке, но дело в том, что фильтр он не трогает и половина информации не копируется. Можно ли сделать макро который просто пройдется по всем файлам и просто снимет фильтры, сохраняя файл? Заранее спасибо!!

Код к задаче: «Excel macro Снять фильтры со всех листов в куче файлов - VBA»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.846 из 5


СДЕЛАЙТЕ РЕПОСТ