无法将SlicerCache连接到数据透视表-错误1004“应用程序定义的错误或对象定义的错误”

Question

我有一些代码可以根据用户输入表构建多个数据透视表。我有一个带有切片器的工作表，我想连接到新建的数据透视表。数据透视表的创建没有问题。

问题：我无法将切片器连接到数据透视表。

在谷歌搜索之后，我认为我需要使用“ SlicerCache.Pivottables.AddPivotTable”函数，但无法使其正常工作。

错误行： objSlicerCache.PivotTables.AddPivotTable _ wksPivots.PivotTables(objPT)

代码：

Dim objSlicerCache  As SlicerCache
Dim objSlicer       As Slicer
Dim objPT           As PivotTable
Dim wksPivots       As Worksheet

' Procedure

Set wksPivots = Workbooks(sDash).Worksheets(sPivots)

For Each objPT In wksPivots.PivotTables
    objPT.PivotCache.Refresh
Next objPT

For Each objSlicerCache In Workbooks(sDash).SlicerCaches
    For Each objPT In wksPivots.PivotTables
        objSlicerCache.PivotTables.AddPivotTable _
            wksPivots.PivotTables(objPT)
    Next
Next

顺便说一句：我从下面的链接中得到了这个想法。我不确定为什么我的无法正常工作

  

Connect a slicer to ll pivot table

更新：我一直无法解决此问题，所以我尝试了其他过程。这个新过程产生了一个不同的问题，我在这里描述： Cannot Connect Slicer to Multiple Pivot Tables - Error #424 "Object Required"