如何使用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