数据透视表运行时错误438：对象不支持此属性或方法

我完全惊呆了

我有这行代码，我每次都得到这个错误。 我已经尝试了很多东西，把它放到variables中，检查所有的名字是否正确，清除caching，似乎没有任何工作。

Sheets("Uren verschil per vestiging").PivotTable("Draaitabel1").PivotFields("jaar mutatie").PivotItem(Year(Date)).Visible = True 

Answer 1

似乎语法是由一个S：

 Sheets("Uren verschil per vestiging").PivotTables("Draaitabel1").PivotFields("jaar mutatie").PivotItems(CStr(Year(Date))).Visible = True 

编辑20160212在“PivotItem”之后添加一个附加的s，并在Year函数中添加CStr。