Excel VBA: ошибка времени выполнения 13 - несоответствие типов при свертывании основных элементов

Question

Я пытаюсь свернуть сводные элементы через цикл с помощью VBA. Ниже приведен код:

Dim oPI As PivotItems

For Each oPI In ActiveSheet.PivotTables("PivotTable4").PivotFields("TAG").PivotItems
oPI.ShowDetail = False
Next oPI

Я получаю ошибку времени выполнения 13 - ошибка "Несоответствие типов". Не уверен, что не так с этим кодом. Может ли кто-нибудь, пожалуйста, дайте мне знать, какие изменения внести?

Answer 1

Замените свою декларацию на oPi:

Dim oPi как объект

достигнет того, что вы хотите. For Each Для цикла требуется переменная типа Object/Variant.

Answer 2

Используйте этот помощник:

ActiveSheet.PivotTables("Name_of_your_pitot_table").PivotFields("pivot_field_name").ShowDetail = False