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

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


textual

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

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



Похожие ответы
  1. День добрый... Подскажите, где я "туплю": При вызове ReloadFIO говорит "несовпадение типов 13":

  1. необходимо сосдать красворд, на раабочем листе 1 разместить ячейки с вопросами это я сделала, проверка правильных ответов выполняется по нажатию на кнопку "проверка". повторный щелчёк по данной кнопке не допускается. количество правильно угаданных слов выводитсяс помощью диалогового окна. правильно угаданные слова должны оставаться на листе. после закрытия рабочей книги содержимое крассворда удаляется. как вот это можно сделать.

  1. ...Вот только в 6 классе нам не впаривали VBA и не заставляли решать задачи с его помощью. Задача: сколькими способами можно разложить на равные кучки 36 орехов? Описать способы разложения на равные кучки.

  1. Нужен макрос, который будет из определенной папки переименовывать файл excel удалением сначала 16 символов до ключевого слова, а потом 5 символов после, все просмотрел похожего не нашел, если реально такой сделать, помогите

  1. Здравствуйте, пишу макрос у которого в конце выполняется сохранение исходного файла с добавлением к имени (копия) в папку "обработано" в этой же директории. Но что-то пошло не так. Помогите разобраться. P.S. В Path & "" & "обработано" & "" почему-то исчезает \

  1. Коллеги, Странного хочу. Хочу выводить сообщения в консольное окно средствами VBA. На какие объекты/методы необходимо обратить внимание в первую очередь? Спасибо. BR

  1. Открываю через ексель файлы ворд и выполняю макрос ворд, но не получается сохранить файл под указанным именем ни такое

  1. Здравствуйте, мне нужен макрос который бы создавал указанное количество папки! Например написал 3 папки он создал 3 папки, при одном запуске! (название начиналась с нумерации, 1,2,3 итд) Количество папки я указываю внутри кода а не через меседж бох!

  1. В папке находится куча xls файлов. У всех у них одинаковая структура. Но она может меняться периодически. Необходимо все файлы собрать в один. Первый файл из которого будут браться данные копируется полностью, включая заголовки. А у последующих файлов данные беруться без заголовков