Построение и настройка фильтра pivot-а в файле

Всем добрый день, коллеги по цеху!

Опишу в кратце, какая стоит задача и какая проблема взникает

Есть большое количество файлов идентичной структуры, которые содержат срез данных за каждый день (таблицу), то есть сами данные и количество строк отличается.

Что я делаю - пишу макрос, который сканирует систему каталогов (год - месяц), открывает каждый файл и строит на определенном листе пивот с заданными фильтрами, сохраняет и закрывает файл. Потом мне нужно эти итоговые цифры с пивотов каждого файла считать.

В чем проблема - проблема в том, что на простейшем фрагменте кода, при построении фильтра

А именно на строке "Pi.Visible = False" выскакивает ошибка 400. При отладке ошибка звучит так - "1004 - Applicaion-defined of object-defined error".

Но самое странное то, что ошибка появляется при сканировании некоторых файлов, хотя структура у них совершенно идентичная. Столбец "In -Transit" везде присутствует, ошибок при инициализации фильтров в коде не возникает.

То есть выглядит это так - я запускаю макрос. Он обработал некоторое количество файлов и потом тормознулся с такой ошибкой на каком-то файле. Причем он совершенно такой же по структуре как и те, что обрабатывались без ошибок.

Кто нибудь сталкивался с таким явлением?

Заранее спасибо за ваши комментарии!

0

Сообщение от true_revenant Visual Basic 1 2 3 4 5 6 Debug.Print "Pivot 1 - In-Transit" For Each Pi In wb.Worksheets("Pivot").PivotTables("PivotTable2").PageFields("In-Transit").PivotItems     If (Pi.Value = "Unchecked") Then         Pi.Visible = False     End If  Next Pi

Действительно, как это я не узнал часть у всех имеющегося кода
Да и файлы, наверное, есть у всех форумчан. Все сразу поняли на каком именно фале тормознулся макрос.

P.s. Какой вопрос, такой ответ

0