循环 Power Pivot、Pivot Table 过滤并打印为 PDF

Question

objective 是循环遍历 Excel Power Pivot、Pivot Table 并在特定文件位置将每个过滤结果打印为 PDF。

当代码到达输出的 for 循环时，它给我一个错误

"Run Time Error - 438 Object doesnt support the property or method"

上线For Each pi In pt

Sub Button1_Click()
 Dim strPath As String
 Dim wksSource As Worksheet
 Dim pt As PivotTable
 Dim pf As PivotField
 Dim pi As PivotItem
 Dim cf As CubeField

 Set wksSource = Worksheets("Summary for Each Analyst")

 Set pt = wksSource.PivotTables("PivotTable1")

 Set cf = pt.CubeFields("[Std_MainData].[CredentialingAnalyst]")

 If cf.Orientation <> xlPageField Then
  MsgBox "There's no 'Credentialing Analyst' field in the Report Filter. Try again!", vbExclamation
 End If

 strPath = "H:\"

 If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

  ActiveWorkbook.ShowPivotTableFieldList = False

  pt.PivotCache.Refresh

  For Each pi In pt
   wksSource.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & pi.Name & ".pdf"
  Next pi

Answer 1

请按照 RADO 指出的那样将 pt 更改为 pv:

For Each pv In pt.PivotFields
   wksSource.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & pv.Name & ".pdf"
Next pv

谢谢

Answer 2

整个周末我都在为同样的问题苦苦挣扎，我终于让它通过切片器而不是报告过滤器循环工作。

'This VBA will loop through your Power Pivot slicer and print the results to PDF.
'To get it working change slicer name and storage location in below VBA.

Private Sub PowerPivotLoopSlicerPrintPDF()
Dim SC As SlicerCache
Dim SL As SlicerCacheLevel
Dim SI As SlicerItem

Set SC = ActiveWorkbook.SlicerCaches("Slicer_Kolonne1") '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:\Users\remia\Desktop\VBA\"   '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:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

    '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

循环 Power Pivot、Pivot Table 过滤并打印为 PDF

Loop Through Power Pivot, Pivot Table Filter and Print to PDF

excel

vba

for-loop

pivot-table

powerpivot

循环 Power Pivot、Pivo​​t Table 过滤并打印为 PDF

Loop Through Power Pivot, Pivot Table Filter and Print to PDF

excel

vba

for-loop

pivot-table

powerpivot

循环 Power Pivot、Pivot Table 过滤并打印为 PDF