获取切片器的源表名称

我想在Excel 2013中find切片器的源表和列名。我发现：

ActiveWorkbook.SlicerCaches("Slicer_Measure_1").SourceName 

会在VBA中产生结果，但我无法捕获它。
有人可以给一个这样的示例代码？

Answer 1

切片器链接到数据透视表和数据透视表链接到源表。
所以先访问数据透视表，然后访问表。 就像是。

 ActiveWorkbook.SlicerCaches("Slicer_Measure_1").PivotTables("PivotTable1").SourceData 

或者，如果您不知道哪个数据透视表与其链接，则可以使用循环。

 Dim pt As PivotTable For Each pt In ActiveWorkbook.SlicerCaches("Slicer_Measure_1").PivotTables Debug.Print pt.Name, pt.SourceData Next 

这将为您提供与您的切片机和相应的表格源相关的数据透视表。 HTH。