Как заставить группу правильно работать в коде VBA

Question

Я пытаюсь скрыть некоторые столбцы, используя функцию Group в своем коде VBA. Группа отображается в моем выходном файле Excel, но она не сворачивает столбцы, как я ожидаю. Любые идеи о том, что мне не хватает, чтобы эти столбцы рухнули должным образом?

xlBook.ActiveSheet.Columns("A").AutoFit
xlApp.ActiveWorkbook.ShowPivotTableFieldList = False
'xlBook.ShowPivotTableFieldList = False

With xlBook.ActiveSheet.Columns("B:O")
 .Group
End With

xlBook.ActiveSheet.Outline.ShowLevels columnLevels:=1
xlApp.ScreenUpdating = True


xlSheet.Columns.AutoFit

Answer 1

Группировка целых столбцов, когда за ними находится сводная таблица, не допускается.

Путь должен был бы сгруппировать элементы внутри сводной таблицы.

Как я вижу, вы делаете этоиз другого приложения попробуйте использовать средство записи макросов, чтобы выбрать метки столбцов сводной таблицы, которые вы хотите сгруппировать, а затем нажмите кнопку «данные» / «группа» на ленте.

Скопируйте сгенерированныйкод и попытаться адаптировать его.

Вот хороший справочник, который вы можете использовать: http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=153:excel-pivot-tables-grouping-group-items-group-data-and-group-date-values-using-vba&catid=79&Itemid=475

Дайте мне знать, если это поможет.