Excel VBA Ошибка вставки слайсера - PullRequest
Новая
       7

Excel VBA Ошибка вставки слайсера

0 голосов
/ 28 августа 2018

В настоящее время я запускаю макрос, который создает сводную таблицу и хотел бы, чтобы рядом с ней были слайсеры. Однако выполнение моего макроса приводит к ошибке приложения или объекта в строке SlicerCaches.Add. Фрагмент соответствующих частей из моего кода: 

Dim wb As Workbook
Dim bTable As Worksheet
Dim PTable As PivotTable
Dim PCache As PivotCache
Dim PRange As Range

Set wb = ActiveWorkbook
Set bTable = Sheets(2)

Set PTable = bTable.PivotTables.Add(PivotCache:=PCache, _
TableDestination:=bTable.Range("E5"), TableName:="ExamplePivotTable")

wb.SlicerCaches.Add(PTable, "Field1").Slicers.Add bTable

Хотя я понимаю, что является ошибкой, определяемой приложением / объектом, я действительно не уверен, откуда эта ошибка. Я запускаю Excel 2010 и использую .Add2 выдает ошибку: «объект не поддерживает это свойство или метод».

...