使用單元格引用過濾PowerPivot表

Question

因此，我徒勞地嘗試從這篇文章中獲取有關使用數據的說明。 我一直遇到運行時錯誤1004。我的目標是在與數據透視表相同的工作表的單元格I1中輸入公司名稱，然后通過該條目對數據透視表進行過濾。 這是我改編的代碼：

Sub filtercompany()
    ' Filtercompany
    Dim FilterValue As String
    FilterValue = ActiveSheet.Range("I1").Value 'get value for filter

    ActiveSheet.PivotTables("PivotTable1") _
        .PivotFields("[Company].[Name].[Name]").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Company].[Name].[Name]") _
        .CurrentPageName = "[Company].[Name].&[" & FilterValue & "]"
End Sub

Answer 1

看看我的琴弦。 當我給我一個項目編號時，它工作正常

Dim i As Variant

i = 216722

ActiveSheet.PivotTables("PiLEverantör").PivotFields( _
    "[Tabell2].[Kolumn1].[Kolumn1]").VisibleItemsList = Array( _
    "[Tabell2].[Kolumn1].&[" & i & "]")
End Sub