недавно я пытался автоматически разворачивать и сворачивать сводные таблицы (созданные из PowerPivot), но не могу заставить его работать.
Вот простой пример кода:
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Dimension].[Subfield].[Subfield]").PivotItems( _
"[Dimension].[Subfield].&[TestField]").DrilledDown = True
Debug.Print ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Dimension].[Subfield].[Subfield]").PivotItems( _
"[Dimension].[Subfield].&[TestField]").DrilledDown
' this results in an output of FALSE even though it is correctly expanded
Второй Я не могу получить доступ к полю ShowDetail. Я не знаю почему.
Debug.Print ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Dimension].[Subfield].[Subfield]").PivotItems( _
"[Dimension].[Subfield].&[TestField]").ShowDetail
Это приводит к ошибке 1004, в которой говорится: «Не удалось получить свойство ShowDetail из класса PivotItem, но это соответствует его части документации.
Спасибо.