VBA Set Range с пустой Pivot Пункт

Question

настоящее время у меня следующий код, чтобы установить диапазон от моей сводной таблицы (набор данных для регионального дохода):

Set RngE1 = PT.PivotFields("Region").PivotItems("Europe").LabelRange 
Set RngE2 = Intersect(PT.PivotFields("Region").PivotItems("Europe").DataRange.EntireRow, PT.PivotFields("Income").DataRange) 
Set RngEurope = Union(RngE1, RngE2) 

Однако это ежемесячный отчет и в определенные месяцы для Европы не будет дохода. Таким образом, я столкнулся с ошибкой, когда макрос не может получить LabelRange класса PivotItem. Есть ли какой-нибудь код, который я могу использовать, который пропустит этот шаг, если LabelRange не найден, а не сломает макрос?

Thanks

Answer 1

Его противение, но как насчет ошибки?

Dim bTest as Boolean 
bTest = False 

' ---------- 
On Error Resume Next 
Set RngE1 = PT.PivotFields("Region").PivotItems("Europe").LabelRange 
If Err Then bTest = True 
On Error Goto 0 

If bTest Then 
    'Handle here 
Else 
    'All good 
End If