Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA Excel-通过切片器对象进行Lopp并复制和保存数据_Vba_Loops_Pivot_Slice - Fatal编程技术网

VBA Excel-通过切片器对象进行Lopp并复制和保存数据

VBA Excel-通过切片器对象进行Lopp并复制和保存数据,vba,loops,pivot,slice,Vba,Loops,Pivot,Slice,我在数据透视表(国家、城市、个人)上有3个切片器过滤器,希望循环所有最终结果并将数据保存为pdf 因此,如果我选择COUNTY和CITY,我需要从所有人中循环,将他们的数据保存到pdf,然后移动到下一个人 我一直在尝试,但现在信息过载,不知道如何让它工作: Sub saveResultsAsPDF () Dim mySlicerCache As SlicerCache Dim mySlicerCacheLevel As SlicerCacheLevel Dim mySlicerItem A

我在数据透视表(国家、城市、个人)上有3个切片器过滤器,希望循环所有最终结果并将数据保存为pdf

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

我一直在尝试,但现在信息过载,不知道如何让它工作:

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

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

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

  • 您好,谢谢您的回答,但我希望通过切片对象项进行循环。