Excel 基于透视过滤器在新工作簿中保存数据的VBA代码

需要您对VBA的帮助：-

我附上一份工作表样本以供参考（请注意，我无法附上实际的工作表，因为它包含机密数据）。 我已经掌握了VBA的基本知识。。。。 希望有人能进一步指导/帮助我

守则：-

Sub pivotloop()
Dim pt As PivotTable
Dim pi As PivotItem
Dim path As String

Dim filename As String


path = "C:\Users\Mark\Desktop\New folder"

Set pt = ActiveSheet.PivotTables("PivotTable1")

For Each pi In pt.PageFields("State").PivotItems

pt.PageFields("State").CurrentPage = pi.Name


With ActiveSheet.PivotTables("State").TableRange1

Set rLastCell = .Cells(.Rows.Count, .Columns.Count)

End With

rLastCell.Select

Selection.ShowDetail = True

ActiveSheet.Move

filename = Range("B1")

ActiveWorkbook.SaveAs filename:=path & filename & ".xls", FileFormat:=xlOpenXMLWorkbook, 
CreateBackup:=False

ActiveWindow.Close


Next pi

End Sub