VBA设置具有空数据透视项的范围

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)

然而，这是一份月度报告，在某些月份，欧洲将没有收入。因此，我会遇到一个错误，即宏无法获取PivotItem类的LabelRange。如果找不到LabelRange，我是否可以使用任何代码跳过此步骤，而不是破坏宏？

感谢

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