У меня есть код, который копирует лист, который содержит 2 сводные таблицы, 1 срезы и данные сводной таблицы в новую книгу.Затем код обновляет диапазон ссылок сводных таблиц до нового набора данных, который был только что скопирован.После этого срезы больше не подключаются к сводным таблицам, поскольку они не связаны с тем же диапазоном.Итак, код удаляет срезы и воссоздает их, что я успешно сделал с верхней частью кода ниже:
Workbooks(Wb2).SlicerCaches.Add2(Workbooks(Wb2).Worksheets(SheetName).PivotTables("PivotTable4"), "Month Selection").Slicers.Add Workbooks(Wb2).Worksheets(SheetName), , "Month Selection", "Month Selection", 193.5, 639.75, 144, 198.75
Workbooks(Wb2).SlicerCaches("Slicer_Month_Selection").PivotTables.AddPivotTable (Workbooks(Wb2).Worksheets(SheetName).PivotTables("PivotTable1"))
Вторая половина кода предназначена для добавления второй сводной таблицы к этому срезуэто было только что создано.Это терпит неудачу, и я полагаю, что это потому, что он не распознает сводную таблицу 1 как подключаемую сводную таблицу.Как подключить вторую сводную таблицу?
