VBA类型不匹配，使用For Each循环将pivottables连接到切片器

Question

下面给出了类型不匹配

我受到评论和工作线的启发，制作了一个简单的宏来将所有数据透视表连接到所有Slicers。我有一个大型数据集，我想用切片器过滤器选择各种子集，然后查看所有的pivottables更新......

现在，我相信这很简单，很高兴有人能帮助我。

Sub ConnectSlicers_Pivottables()

'ActiveWorkbook.SlicerCaches("Slicer_Country").PivotTables.AddPivotTable_
(ActiveSheet.PivotTables("PivotTable1"))

Dim SC As SlicerCache
Dim PT As PivotTable

For Each SC In ActiveWorkbook.SlicerCaches
For Each PT In ActiveSheet.PivotTables

SC.PivotTables.AddPivotTable (PT)

Next PT
Next SC

End Sub

Answer 1

是的，它不能直接工作。只需通过其名称调用PivotTable进行小调整：

sc.PivotTables.AddPivotTable（ActiveSheet.PivotTables（pt.Name））