如何用VBA计算Excel工作簿中透视表的个数？

Sub CountPivotTables()
    Dim pt As PivotTable
    Dim ptCount As Integer
    
    ptCount = 0
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 循环遍历当前工作表中的所有透视表
        For Each pt In ws.PivotTables
            ptCount = ptCount + 1
        Next pt
    Next ws
    
    ' 显示透视表的个数
    MsgBox "工作簿中的透视表个数为：" & ptCount
End Sub