Я пытаюсь скопировать сводную таблицу из другой книги в другую. Мне удалось скопировать сводную таблицу, но при вставке возникла проблема.
Вот скриншот ошибки
Сообщение об ошибке
А вот мой код
Dim previous As Workbook
Dim latest As Workbook
Application.CutCopyMode = False
previous.Activate
Sheets("PD").Select
ActiveSheet.PivotTables("PivotTable2").TableRange2.Copy
latest.Activate
Worksheets("PD").Activate
Range("U9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 1).Range("A1").Select
Selection.PasteSpecial
Также, пожалуйста, не допускайте, чтобы параметры для сводной таблицы также существовали на целевой странице. Спасибо