运行时错误'1004'无法获取Excel 2013中的数据透视表类的PivotFields属性

编程问答 2022-06-12

问题描述

我收到此错误：

运行时错误'1004'无法获取数据透视表类的PivotFields属性

这是我在Excel VBA（2013版）中发生的，但是相同的代码在运行Office 365的另一台计算机上成功执行。

With pt
  .PivotFields(fieldName).ClearLabelFilters
  .PivotFields(fieldName).PivotFilters.Add Type:=xlCaptionEquals,Value1:=strFilter
End With

为了确保正确命名数据透视表过滤器，我尝试遍历数据透视表以获取所有数据透视表和字段的名称：

Dim pt As Pivottable
Dim pf As PivotField

wb.Worksheets("Sheet1").Activate
For Each pt In wb.Worksheets("Sheet1").Pivottables
  Debug.Print pt.Name
  For Each pf In pt.PivotFields
    Debug.Print pf.Name
  Next pf
Next pt

这将成功打印数据透视表的名称，但在碰到此行时会出现相同的错误：

For Each pf In pt.PivotFields

我通过记录宏并在数据透视表中更改过滤器进行了尝试。记录的宏在以下行上失败：

ActiveSheet.Pivottables("testPivottable").PivotFields("TYPE").ClearallFilters

请让我知道是否有人了解为什么我的应用程序可能无法使用PivotFields属性，或者是否有任何进一步解决问题的想法。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelexcel-2013excel-365vba