运行时错误 1004 - 无法获取数据透视表类的 PageRange 属性

Question

当代码应用于没有PageRange 属性的数据透视表时，代码将失败并显示标题中的错误

我尝试将布尔变量应用于

sh.PivotTables(i).PageRange

但这也没用

 Sub TestPivotPaste2()

    Dim wb As Workbook
    Dim sh As Worksheet
    Set wb = ActiveWorkbook

    Set sh = wb.Worksheets(7)
    c = sh.PivotTables.Count

    If c > 0 Then

        For i = 1 To c
            If Not sh.PivotTables(i).PageRange.Count = 0 Then
                Debug.Print c
            Else
                GoTo nextpiv
            End If
            nextpiv:
        Next i
    Else
    MsgBox ("NoPivot")
    End If

   End Sub

预期的结果是能够辨别 PageRange 属性为真或假的数据透视表，但它仅在范围存在时才有效。

Answer 1

试试这个功能

Function pageRangeExists(pt as PivotTable) as Boolean

    Dim test as Range
    On Error Resume Next
    Set test = pt.PageRange
    On Error Go To 0

    pageRangeExists = Not test Is Nothing

End Function

由于PageRange 是一个范围对象，因此您必须首先测试该范围是否存在或是否有效，因为尝试对不存在的范围进行操作会产生错误。

这样你的for loop 就可以简化了

   For i = 1 To c
       If pageRangeExists(sh.PivotTables(i)) Then
           Debug.Print c
       End If
   Next i

GoTo 语句是多余的，因为它是已经嵌入在for loop 中的逻辑。