У меня возникли проблемы с подключением комбинированного списка Active X к фильтру сводной таблицы.По сути, мне нужно, чтобы пользователи выбирали из выпадающего списка идентификатор, который нужно связать с фильтром сводной таблицы.Я использую следующий код:
Private Sub ComboBox1_Change()
Dim sheet As Worksheet
Dim pt As PivotTable
Dim ptField As PivotField
Set sheet = ThisWorkbook.Worksheets("Overview")
Set pt = sheet.PivotTables("Main")
Set ptField = pt.PivotFields("CustomersId")
ptField.ClearAllFilters
ptField.CurrentPage = Me.ComboBox1.Value
End Sub
Я получаю сообщение об ошибке: «Невозможно получить свойство PivotFields класса PivotTable».
Любое представление о том, что не так с приведенным вышекод?Что-то, чего мне не хватает?
Заранее спасибо