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，但是在PivotTable字段中，我看到的是名字而不是数字，而在VBA中，我想用名称而不是数字来过滤它，我该怎么写呢？因为当我使用名称而不是[5]时，我得到一个错误。为了简单起见，当我点击过滤立方体并选择一个叫做ABCD的东西时，在VBA中我看到数字但没有ABCD ..我需要在VBA中使用ABCD而不是ID。

由于