Итак, я пытаюсь использовать сводную таблицу, чтобы установить необходимые условия фильтра для запроса, а затем получить значение.
Макрос SetFilter отлично работает при вызове из тестового макроса и выполнении с использованием команды Выполнитьfunction.
Public Sub SetFilter(tpt As PivotField, astr As Variant)
tpt.ClearAllFilters
If astr <> "All" Then
tpt.CurrentPage = astr
Else
tpt.CurrentPage = "(All)"
End If
End
Однако, когда часть функции запроса, tpt.clearallfilters падает, и попытка установить tpt.CurrentPage также терпит неудачу ..
Я в своем уме.Я подозреваю, что это связано с областью действия, но использование отладчика не показало ничего очевидного, что помешало бы мне установить PageField.
Любая помощь очень ценится.