找到excel 2007 Pivot表

Question

有人能告訴我如何找到工作簿（或表）中的所有數據透視表嗎？ 在某些情況下，可能會在非常大的Excel工作表中隱藏或難以找到數據透視表。 如果我至少可以獲得樞軸表所在的單元格地址或范圍，那就太好了。

謝謝。

Answer 1

這應該適合你。 它將結果打印到立即窗口：

Sub FindPivotTables()
    Dim wst As Worksheet
    Dim pvt As PivotTable
    ' loop through all sheets and print name & address of all pivot tables
    For Each wst In ActiveWorkbook.Worksheets
        For Each pvt In wst.PivotTables
            Debug.Print wst.Name, pvt.TableRange2.Address, pvt.Name
        Next pvt
    Next wst
End Sub

Answer 2

每個工作表都應該公開PivotTables表集合; 你可以循環遍歷每個工作表，尋找具有.PivotTables.Count > 0工作表，然后遍歷該sheeet上的PivotTables表，找到你要查找的工作表：

Sub Test()

    Dim pTable As pivotTable

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets

        Dim pivotTableCount

        pivotTableCount = ws.PivotTables.Count

        If pivotTableCount > 0 Then

            For Each pTable In ws.PivotTables

                 Dim pivotTableName As String
                 pivotTableName = pTable.Name

                 Dim pivotTableTopLeftCell As String
                 pivotTableTopLeftCell = pTable.Location

            Next pTable 

        End If



    Next ws


End Sub