У меня есть код, который генерирует несколько сводных таблиц, которые состоят из строк даты и одного поля данных.Кроме того, он создает сводную диаграмму для каждой из этих таблиц.
Код работает теперь, потому что, поскольку они находятся в одном цикле, правильная часть таблицы активируется / выбирается «для аварии», когда я даю строкусоздать диаграмму.
Но когда я пытаюсь обрабатывать таблицы и диаграммы в разных циклах, я не могу создать диаграммы, потому что у меня есть Pt.Pivoselect, выдающий ошибки.
Myвопрос: что мне нужно выбрать при использовании сводной выборки?
Код для создания таблицы:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
ActiveWorkbook.Connections("ThisWorkbookDataModel"), Version:=6). _
CreatePivotTable TableDestination:="NewPivot!R11C" & destination, TableName:= _
PI(i) & "Table", DefaultVersion:=6
Где PI (i) - это просто массив симя поля в модели данных, и пока я использую его в качестве фиктивного имени для идентификации таблиц и диаграмм
После этого я заполняю xlRowField годом и месяцем года, добавляю и форматирую поле данных
Pt.AddDataField ActiveSheet.PivotTables(PI(i) & "Table").CubeFields(PI(i)), Cells(10 + i, 3).Value
Pt.PivotFields(PI(i)).Caption = Cells(10 + i, 3).Value
With Pt.PivotFields(PI(i))
.NumberFormat = "#,##0.00"
End With
Где ячейки в ссылке - это текст, который сообщает, что это за данные
Затем, чтобы добавить диаграмму, которую я использую
Pt.PivotSelect ("Something")
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, name:="NewPivot"
ActiveChart.Parent.name = PI(i) & "Chart"
Что должно быть на этом чем-то? Со всеми в одном цикле этоЭта строка бесполезна, поскольку сводная таблица только что создана и все активна, но мне нужно разделить эти циклы сейчас, и она выдает ошибки.