vba - Excel VBA - PivotItems 返回无效值

Question

在 Excel 工作簿中，我在工作表上有“静态”数据透视表，它基于另一个工作表中的数据。

我正在刷新我的数据表上的数据(谢谢队长 Obvious!)，然后我想显示所有项目，除了空白项目，所以我正在运行 throw 所有 PivotItems 以将它们设置为可见，并且，最后，取消选择空白:

i = 1

ThisWorkbook.Sheets("TCD").PivotTables(i).PivotFields("CODETAT").ClearAllFilters
ThisWorkbook.Sheets("TCD").PivotTables(i).PivotCache.MissingItemsLimit = xlMissingItemsNone
For Each PvI In ThisWorkbook.Sheets("TCD").PivotTables(i).PivotFields("CODETAT").PivotItems
    PvI.Visible = True
Next

ThisWorkbook.Sheets("TCD").PivotTables(i).PivotFields("CODETAT").PivotItems("(blank)").Visible = False

在我的循环的最后一次发生时，在第 4 个 PivotItems 上，我有一个执行错误'1004'(我会从法语翻译它，它可能会出现一些错误，抱歉)“无法定义类 PivoItem 的属性 Visible "，所以我检查了几件事:

?ThisWorkbook.Sheets("TCD").PivotTables(i).PivotFields("CODETAT").PivotItems.count
 4 

对于 x = 1 到 4 :

?ThisWorkbook.Sheets("TCD").PivotTables(i).PivotFields("CODETAT").PivotItems(x)
(blank)
SFT
ACQ
TEP

看起来我的数据透视表中有 4 个项目，但是



而且，当我检查我的数据时，我只有 2 个不同的统计数据:


那么这个第 4 个 PivotItems 元素是从哪里来的，我该如何驾驭它呢？
谢谢你。

Answer 1

我遇到了一个令人惊讶的问题，您需要检查数据透视表选项:

右键单击数据透视表，

选择 Pivot Table options

进入Data标签

查找 Retain items deleted from the data source

选择None 对于 Number of items to retain per field !

然后刷新!现在一切都应该好了! ;)

(那件事让我发疯了好几个小时!^^)