PowerPivot, как удалить фильтр столбцов через код VBA

Question

У меня есть таблица PowerPivot, в которой один из моих макросов имел фильтр по столбцу.Когда я попытался создать еще один макрос, который очистил фильтр, ничего не произошло.Я использовал следующие два кода:

Private Sub Com3_click()
  ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[HVC_Sample].[Updated_task_status].[Updated_task_status]").VisibleItemsList = _
        Array("")
End Sub

И:

Private Sub Com2_Click()

    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[HVC_Sample].[Updated_task_status].[Updated_task_status]").VisibleItemsList = _
        Array("[HVC_Sample].[Updated_task_status].&[Completed]")
End Sub

Оба они не удалили его, кроме того, если я вручную это сделаю, фильтр будет удален.Есть идеи, как исправить код?Спасибо!

Answer 1

Предполагается, что вы правильно выбираете таблицу:

Private Sub remove_filter()

    With ActiveSheet.PivotTables("PivotTable1")
        .ClearAllFilters
    End With

End Sub

Answer 2

Используйте метод ClearAllFilters:

Private Sub Com3_click()
  ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[HVC_Sample].[Updated_task_status].[Updated_task_status]").ClearAllFilters
End Sub