问题描述
我已经开发了一个Dashboard，该Dashboard会基于以下两个切片器进行更改：部门和员工。
我的最终目标是使附加的代码在切片器中的所选部门上运行，第二个切片器将选择所有员工，然后该代码将遍历每个员工并打印到PDF以将每个员工保存在其中他们的透视部门文件夹。
该文件夹将以部门名称作为文件夹名称，因此我在考虑某种=运算符的含义。我从另一个用户那里拉了代码。
*The below VBA code goes through and selects all and places it in the folder. Is there a way to have
the PDF file save depending department or the first slicer.
Private Sub PowerPivotLoopSlicerSimplePrintoPDF()
Dim SC As SlicerCache
Dim SL As SlicerCacheLevel
Dim SI As SlicerItem
Set SC = ActiveWorkbook.SlicerCaches("Slicer_Employee") 'Add slicer name between " "
Set SL = SC.SlicerCacheLevels(1)
'c(ounter) is set to 1,ready to begin
c = 1
'Repeat the a loop until number of prints exceeds number of items in slicer
do while c <= SC.SlicerCacheLevels.Item.Count + 1
'This makes sure that SI is the correct slicer. Needed for corrent file name.
For Each SI In SL.SlicerItems
If SI.Selected = True Then
SlicerverdiIndex = c
Exit For
End If
Next SI
'PRINT CODE
Dim FName As String
Dim FPath As String
'Define file path for printed file storage
FPath = "C:\prchica\Desktop\scorecard\PDF files" 'Choose your filepath
FName = SI.sourceName
'Define WHAT to print and how to build file name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,Filename:= _
FPath & "\" & FName & ".pdf",Quality:=xlQualityStandard,_
IncludeDocProperties:=False,IgnorePrintAreas:=False,OpenAfterPublish:= _
False,From:=1,To:=1
'PRINT CODE FINISHED
'Sets the slicer to the last item in the list
If SlicerverdiIndex = 1 Then
SlicerverdiIndex = SC.SlicerCacheLevels.Item.Count + 1
End If
SC.VisibleSlicerItemsList = SL.SlicerItems(SlicerverdiIndex - 1).Name
'Adds 1 to the counter,will loop until end of slicer has been reached.
c = c + 1
Loop
End Sub*
解决方法
我需要将其添加到我的代码中
Dim SC As SlicerCache
Set SC = ActiveWorkbook.SlicerCaches("Slicer_Department") 'Add slicer name between " "
Call ParseAndPrintSlicer(SC)
Set SC = ActiveWorkbook.SlicerCaches("Slicer_Emplid") 'Add slicer name between " "
Call ParseAndPrintSlicer(SC)