不同工作簿上多个数据透视表上的帐户名称错误

问：

我有 4 个倍数工作簿，所有工作簿都包含多个透视表，其中包含“帐户名称”和“年份”字段。我写了一个代码来一次更改帐户名称和年份的所有 Pivot，但在帐户名称上出现错误

Dim pt As PivotTable
            For Each pt In ws.PivotTables
                With pt
                    With .PivotFields("Account Name")
                        .ClearAllFilters
                        .CurrentPage = accountName ---- getting error on this line
                    End With
                    With .PivotFields("Year")
                        .CurrentPage = year
                    End With
                End With
                Next pt