运行-时间错误“13”:定义 PivotCahe 的类型不匹配

Run-time error '13': Type mismatch defining PivotCahe

我在为我的功能区宏定义 PivotCache 和创建枢轴 Table 时收到错误 Run-time error '13': Type mismatch。任何人都可以解释为什么以及如何解决它吗?

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")

您有一个包含一系列方法调用的语句 (Set PCache = ...Create().CreatePivotTable())。有时 VBA 无法正确解读嵌套语句,因此请尝试将其分成多行:

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