Обновление сводной таблицы: RefreshTable, PivotCache.Refresh

[silyin]

Есть книга Excel "Каталог" (файл прикреплён к сообщению).
На листе "База" книги есть список (поля: "папка", "файл", "размер файла").
Поле "папка" списка первоначально содержит значения "1", "2" и "3".
На основании данных списка создаётся сводная таблица "СТ" на листе "СТ" книги.
Затем из списка на листе "База" удаляются записи, имеющие в поле "папка" значение "3".

Проблема: При обновлении данных сводной таблицы "СТ" элемент "3" из набора элементов поля "папка" сводной таблицы "СТ" не исчезает.

Чтобы решить указанную проблему, пробую код:

Код: Выделить всё

With Worksheets("СТ").PivotTables("СТ")
  .RefreshTable
  .PivotCache.Refresh
End With

Но этот код не помогает.

Как вы думаете, что не так?
Как можно обновить набор элементов поля сводной таблицы и привести его в соответствие с текущим состоянием списка (источника данных)?

[uhm]

Лично у меня по коду ActiveSheet.PivotTables("СТ") .PivotCache.Refresh все сработало на ура.

[silyin]

Лично у меня по коду ActiveSheet.PivotTables("СТ") .PivotCache.Refresh все сработало на ура.

Спасибо.
У меня этот код приводит к нужному результату (элемент "3" исчезает из набора элементов поля "папка" сводной таблицы "СТ"), если действовать в следующем порядке:
1. поле "папка" удалить из области сводной таблиц;
2. запустить код;
3. поле "папка" добавить в область сводной таблицы.
Если поле "папка" не трогать, то при запуске кода нужный результат не достигается.
У тебя тоже?
А можно ли избежать действий 1 и 3?

[uhm]

Не, у меня только п.2 работает
Впрочем, не знаю, я удалял из исходной таблицы ручками, а не кодом, может быть, в этом прикол, хотя очень маловероятно...

Может быть, у тебя старый/кривой офис?

[silyin]

А что ты ещё удалял?
В файле, прикреплённом к сообщению, уже всё удалено: в списке остались только записи, имеющие в поле "папка" значения "1" и "2", а набор элементов поля "папка" в сводной таблице содержит также лишний элемент "3".

Я пользуюсь MS Excel 2003.

[uhm]

Ну, я "2" удалил все записи, все сработало. Не знаю, чем тебе еще помочь, увы.

[silyin]

Может быть, ты имеешь ввиду, что соответствующие значения ("3" или "2") перестают быть видны в области сводной таблицы? Так, после обновления данных сводной таблицы они у меня, конечно, тоже перестают быть видны в области сводной таблицы. Я имел ввиду другое: эти значения продолжают быть видны в раскрывающемся списке поля "папка" сводной таблицы, и, соответственно, продолжают оставаться в наборе PivotTables("СТ").PivotFields("папка").PivotItems.