vba - 带有空白枢轴项的 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