vba - VBA Excel - Lopp 通过 Slicer Object 并复制和保存数据

Question

我在数据透视表（国家、城市、人）上有 3 个切片器过滤器，并且想要遍历所有最终结果并将数据保存为 pdf。

因此，如果我选择 COUNTY 和 CITY，我需要从所有 PERSON 中循环，将他们的数据保存为 pdf，然后移动到下一个 PERSON。

我一直在尝试，但现在信息超载，不知道如何让它工作：

Sub saveResultsAsPDF ()

Dim mySlicerCache As SlicerCache 
Dim mySlicerCacheLevel As SlicerCacheLevel 
Dim mySlicerItem As SlicerItem

Set mySlicerCache = ActiveWorkbook.SlicerCaches("PERSON") 
Set mySlicerCacheLevel = mySlicerCache.SlicerCacheLevels(2)

For Each mySlicerItem In mySlicerCacheLevel.SlicerItems    
    saveRangeToPDF
Next
End Sub

Answer 1

我不熟悉切片，但如果我理解您的一般问题，您想操作数据透视表，将结果保存到 PDF，然后重复。这个怎么样：

1. 操纵枢轴。添加过滤器等。准备好后刷新数据透视表。
2. 将整个工作表另存为新的 PDF 文件。
3. 继续你的循环。