添加切片器以连接两个数据透视表-运行时错误-无法获取工作表类的PivotTables属性

Question

我不知道VBA。我录制了一个宏，在一个数据透视表中添加了切片器。下一个数据透视表就在它旁边，并且两个表中的名称列都相同。

Sub slicer()
'
' slicer Macro
'

'
    ActiveWorkbook.SlicerCaches.Add(ActiveSheet.PivotTables("PivotTable2"), _
        "Agent Name").Slicers.Add ActiveSheet, , "Agent Name", "Agent Name", 176.25, _
        639.75, 144, 198.75
    ActiveSheet.Shapes.Range(Array("Agent Name")).Select
    ActiveSheet.Shapes("Agent Name").IncrementLeft -630
    ActiveSheet.Shapes("Agent Name").IncrementTop -29.25
    With ActiveWorkbook.SlicerCaches("Slicer_Agent_Name")
        .SlicerItems("Arnold,Kirk ").Selected = True
        .SlicerItems("Barrera,Sam").Selected = False
        .SlicerItems("Bartlett,Angela Denise").Selected = False
        .SlicerItems("Beasley,Jeremy Lavell").Selected = False
 End With
End Sub