Ошибка времени выполнения «13»: несоответствие типов, определяющее PivotCahe

Question

Я получаю ошибку Run-time error '13': Type mismatch при определении PivotCache и создании сводной таблицы для моего макроса ленты.Может кто-нибудь объяснить, почему и как это исправить?

Dim PCache As PivotCache
'Define Pivot Cache and Insert Pivot Table
Set PCache = ActiveWorkbook.PivotCaches.Create _
    (SourceType:=xlDatabase, SourceData:="Assigned!$A:$P"). _
    CreatePivotTable(Worksheets("Assigned").Range("R3"), TableName:="Assigned` Cases")

Answer 1

У вас есть один оператор (Set PCache = ...Create().CreatePivotTable()), который включает в себя цепочку вызовов методов.Иногда VBA не может правильно расшифровать вложенные операторы, поэтому попробуйте разбить их на несколько строк:

Dim x as ...
Set x = ...Create(...)
Set PCache = x.CreatePivotTable(...)