VBA中的数据透视项报告不存在的项

我有一个VBA代码，它通过更改数据透视过滤器打印数据透视表（如下所示）

我的问题是，在打印最后一个数据透视项（pivF=27）后，“pivI.Name”变为“999”，这在我的工作表和数据透视表中都不存在。因此，宏报告一条错误消息“Runtime error 5”

有趣的是，同一文件中的另一个工作表中的同一代码可以正常工作而没有错误

有人能帮我吗

Private Sub CommandButton3_Click()
Dim pivF As PivotField
Dim pivI As PivotItem

Set pivF = ActiveSheet.PivotTables("Tourenplan").PivotFields("Tour")

Application.ScreenUpdating = False

For Each pivI In pivF.PivotItems
    pivF.CurrentPage = pivI.Name
    ActiveWindow.SelectedSheets.PrintOut
Next pivI

Application.ScreenUpdating = True
End Sub

非常感谢，

---

我昨天也有同样的问题

在

数据透视表选项

（右键单击该表）中，在

数据选项卡

中，您应该找到从数据源删除的

保留项目

，为每个字段保留的项目数选择

无

，然后刷新

---

如果不起作用，请更改设置（数据选项卡上的所有设置），保存、关闭、再次打开，再次检查相同的选项，并将每个字段要保留的项数设置为无。我昨天刚刚遇到同样的问题

在

数据透视表选项

（右键单击该表）中，在

数据选项卡

中，您应该找到从数据源删除的

保留项目

，为每个字段保留的项目数选择

无

，然后刷新

---

如果不起作用，请更改设置（数据选项卡上的所有设置），保存、关闭、再次打开，再次检查相同的选项，并将每个字段要保留的项数设置为无。是的。。。谢谢@R3uK的原始回答。还有45分钟我就不回来了。。。默认启用是多么愚蠢的事情啊。@DaveCullum:我至少要两天才能找到这个！是时候看看我是否可以用VBA禁用它了，不客气。是的。。。谢谢@R3uK的原始回答。还有45分钟我就不回来了。。。默认启用是多么愚蠢的事情啊。@DaveCullum:我至少要两天才能找到这个！是时候看看我是否可以用VBA禁用它了