查找excel 2007樞軸表

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一個.PivotTables.Count > 0，然後循環對sheeet找到你正在尋找一個表：

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