如何在 VBA 中命名多层字段数据透视表

Question

我有下面的代码，它根据 K2 中输入的内容过滤我的数据透视表。我不断收到一条错误消息，上面写着 (Set Field = pt.PivotFields)，它调用了字段的名称。我试图影响的字段位于字段名称位置/子字段位置名称中。当我记录自己更改它时，代码调用以下字段：

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
  "[Locations].[Loc Name].[Location Name]").VisibleItemsList = Array( _
  "[Locations].[Loc Name].[Location Name].&[CENTRAL MISSISSIPPI MED CTR  (CMS-1)]")

'ActiveSheet.PivotTables("PivotTable1").PivotFields( _
  "[Locations].[Loc Name].[Location Acronym]").VisibleItemsList = Array("")
'ActiveSheet.PivotTables("PivotTable1").PivotFields( _
  "[Locations].[Loc Name].[Location Number]").VisibleItemsList = Array("")

任何关于我在单元格 K2 中如何调用数据透视字段中相应位置的帮助都会很棒。

代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("K2:K3")) Is Nothing Then Exit Sub

Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String

  Set pt = Worksheets("Fact Trans").PivotTables("PivotTable1")
  Set Field = pt.PivotFields("[Locations.Loc Name.Location Name]").VisibleItemsList
  NewCat = Worksheets("Fact Trans").Range("K2").Value

  With pt
    Field.ClearAllFilters
    Field.CurrentPage = NewCat
    pt.RefreshTable
  End With

End Sub

Answer 1

您正在尝试将String 的数组分配给PivotField，但这是行不通的。这是在PivotFields 调用末尾添加VisibleItemsList 的结果。

解决方案

• 如果您真的只想要PivotField，请去掉VisibleItemsList。
• 如果您真正想要的是该列表，您需要Dim Field as Variant 以便它可以运行。但这会破坏下游代码，所以我怀疑这是你的目标。

我怀疑你想要的是前者：

Set Field = pt.PivotFields("[Locations].[Loc Name].[Location Name]")

您可以查看MS support for VisibleItemsList，如果这是您真正想要使用的属性。您的宏可能包含在代码中，因为您当时正在更改手动过滤器（这是该属性控制的内容）。