使用数据透视表缓存运行时的切片器错误 5

问：

我有一个通过数据模型构建的数据透视表，通过该数据表仅将数据文件夹加载为连接。有一个单独的宏来完成这个过程，因为我试图使这些月度报告更具动态性。此外，我还创建了宏来使用这些数据构建整个数据透视表，然后设置连接的切片器。但是，在清除所有连接以测试这些宏时，尽管所有数据透视字段名称都正确，但我无法仅运行切片器代码;数据透视表仍然加载得很好。这是否与 Pivot 或 Slicer Cache 有关？如果是这样，我该如何清除它，它是否允许此代码运行？注意* 所有这些宏都是通过录制创建的，我没有对它们进行编程，因此下面的代码在连接过去的数据模型时起作用。

'Creating Slicer (where error is located)'
ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables("Brand"), _
        "[Data].[Geography]").Slicers.Add ActiveSheet, _
        "[Data].[Geography].[Geography]", "Geography1", 808.2, 598.2, _
        144, 194.25
'Moving to desired location'
ActiveSheet.Shapes.Range(Array("Geography1")).Select
    ActiveSheet.Shapes("Geography1").IncrementLeft -458.4
    ActiveSheet.Shapes("Geography1").IncrementTop -751.2
    ActiveSheet.Shapes("Geography1").ScaleHeight 0.627027027, msoFalse, _
        msoScaleFromTopLeft
'Formatting'
ActiveWorkbook.SlicerCaches("Slicer_Geography1").Slicers("Geography 1").Style = _
        "Slicer Style 1"

我尝试将 Add2 中的“name”参数留空（例如，“”，文字空格，根本没有参数），但这会导致根本没有创建切片器。