将Excel Slicer连接到工作表中的每个数据透视表

Question

我想将切片器连接到工作表中的所有数据透视表，但是SlicerCaches是Workbook属性，因此无法按工作表列出它们。

我不能区分切片器位于哪个工作表中。

For j = ActiveWorkbook.SlicerCaches.Count To 1 Step -1
    With ActiveWorkbook.SlicerCaches(j).PivotTables
        For i = .Count To 1 Step -1
            .AddPivotTable (.item(i))
        Next i
    End With
Next j