VBA遍历透视表Name筛选器时出现Run-time error '5'错误求助

针对你遇到的遍历「Name」筛选器时第6次运行出错的情况，结合你的代码和描述，我整理了几个排查思路和解决方案：

一、先修复代码里的明显隐患 #

你代码里的myARName和myFileName变量没有赋值就直接用来保存文件，这不仅可能导致保存失败，还可能干扰后续操作。先在循环里给这两个变量赋值，比如：

myARName = pi.Name ' 或者pi.SourceName，根据你的需求
myFileName = Format(Date, "YYYYMMDD") ' 或者自定义其他标识

二、检查PivotItem的遍历与可见性问题 #

直接遍历pf.PivotItems可能会包含那些被隐藏或过滤掉的无效项，导致设置CurrentPage时出错。建议：

• 改为遍历可见项：把For Each pi In pf.PivotItems替换成：

  For Each pi In pf.VisibleItems
  

• 或者在循环里先判断项是否可见：

  For Each pi In pf.PivotItems
      If pi.Visible Then
          ' 你的后续操作代码
      End If
  Next
  

三、替换SourceName为更可靠的属性 #

SourceName是数据源中的原始名称，可能和透视表中显示的项名称不一致，或者存在重复/异常值。试试用pi.Name或pi.Value来设置CurrentPage：

.PivotFields("Name").CurrentPage = pi.Name

如果还是不行，先打印出项的详细信息排查：

MsgBox "序号: " & pi.Index & vbCrLf & _
       "Name属性: " & pi.Name & vbCrLf & _
       "SourceName属性: " & pi.SourceName & vbCrLf & _
       "是否可见: " & pi.Visible

通过这个弹窗可以清楚看到第6项的实际参数，判断是不是SourceName本身出现了异常回退。

四、修复页字段的多选设置 #

如果「Name」字段被设置为允许多项筛选，直接设置CurrentPage会触发错误。先在代码里取消这个设置：

With ActiveSheet.PivotTables("PivotTable1")
    .PivotFields("Name").ClearAllFilters
    Set pf = .PivotFields("Name")
    pf.EnableMultiplePageItems = False ' 新增这一行关闭多选
    ' 后续循环代码
End With

五、刷新透视表缓存解决数据异常 #

有时候透视表缓存会出现数据错乱，导致SourceName指向错误。在循环前刷新缓存：

ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable1").RefreshTable

六、调整循环内的操作顺序 #

每次设置新的筛选前，先重置为“全部”，避免上一次的筛选残留影响：

For Each pi In pf.VisibleItems
    .PivotFields("Name").ClearAllFilters
    .PivotFields("Name").CurrentPage = pi.Name
    ' 复制透视表、保存文件的代码
Next

你可以先从变量赋值和替换SourceName为pi.Name这两点入手排查，这两个是最常见的触发原因。如果还是不行，用弹窗打印项的详细信息，就能定位到第6项的具体问题了。

内容的提问来源于stack exchange，提问作者Jamie S