Question

我正在尝试使用this link中的代码，但我不断收到运行时错误438“对象不支持此属性或方法”行

Sub DeleteAllFields()
    Dim i As Long
    ActiveSheet.PivotItems(1).Visible = True
        For i = 2 To ActiveSheet.PivotItems.Count
            ActiveSheet.PivotItems(i).Visible = False
        Next
End Sub

有谁知道发生了什么事？

完整代码：

  ConfigurationManager.getConfigInstance().setProperty("hystrix.command.TestInterface#invoke().execution.isolation.thread.timeoutInMilliseconds",500);

完全披露 - 我是新手VBA用户。

谢谢！

Answer 1

该错误与您使用.PivotItems()对象ActiveSheet有关。

PivotItems()属性是PivotFields()对象的一部分，因此您需要以下内容：

ActiveSheet.PivotTables("PivotTable1").PivotFields("Example Field").PivotItems(1).Visible = True

取消选择数据透视表项错误

1 个答案: