我第一次使用切片器，并被指向公司中某些人创建的上一个宏。它适用于他们，但我的工作表中的4号线存在问题。我们正在尝试为公司中的各个商店创建一些趋势报告。
我需要为每个商店提供PDF。我能够保存一个商店，但是拥有30多家商店并且还在继续计数，我希望将其自动化。我可以删除ActiveWorkbook.SlicerCaches("Slicer_Store_ID")。并且该宏将运行，但只会产生1家商店。
这是代码
Sub PDF()
Dim sI As SlicerItem
For Each sI In ActiveWorkbook.SlicerCaches("Slicer_Store_ID").SlicerItems
ActiveWorkbook.SlicerCaches("Slicer_Store_ID").VisibleSlicerItemsList = Array(sI.Name)
nm = Range("B1")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="G:\Accounting\Private\DIR Review and Testing\" & nm & "_DIR Trends.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub