vba - VBA 和数据透视表过滤器显示 id 但不显示值

Question

请帮忙。我必须使用过滤器创建数据透视表，我可以选择 2 个过滤器，但是当我尝试选择第三个过滤器时出现错误，我使用宏记录来查看它应该如何完成并得到这个：

"[Product].[System Source].[System Source]").CurrentPageName = _
"[Product].[System Source].&[SIMHKG_HSB]"

ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Product].[Shareclass].[Shareclass]").ClearAllFilters

ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Product].[Shareclass].[Shareclass]").CurrentPageName = _
"[Product].[Shareclass].&[5]"

正如您在此代码中看到的那样，Shareclass 过滤器值为 5，但在数据透视表字段中我看到的不是数字，而在 VBA 中我想用名称而不是数字来过滤它，我该怎么写？因为当我使用名称而不是 [5] 时，我得到一个错误。为了简单起见，当我单击以在多维数据集中进行过滤并选择称为 ABCD 的东西时，在 VBA 中我看到数字但没有 ABCD .. 我需要在 VBA 中使用 ABCD 而不是 ID。

谢谢