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

Question

如何使用VBA计算工作簿中数据透视表的总数？

Answer 1

我在StackOverflow上找不到答案，所以我想分享一下。没有本地属性计算所有数据透视表，但有一个Worksheet.PivotTables.Count属性。遍历工作簿中的每个工作表并保持运行计数如下：

Public Function CountPivotsInWorkbook(ByVal target As Workbook) As Long

    Dim tmpCount As Long
    Dim iWs As Excel.Worksheet

    For Each iWs In target.Worksheets
        tmpCount = tmpCount + iWs.PivotTables.Count
    Next iWs

    CountPivotsInWorkbook = tmpCount
End Function

像这样调用函数：

Sub test()
    MsgBox CountPivotsInWorkbook(ActiveWorkbook)
End Sub