excel 2007 피벗 테이블을 찾으십시오

Question

통합 문서 (또는 시트)의 모든 피벗 테이블을 어떻게 찾을 수 있습니까? 경우에 따라 피벗 테이블이 숨겨져 있거나 매우 큰 엑셀 시트에서 찾을 수 없을 수도 있습니다. 만약 내가 적어도 셀 주소 또는 피벗 테이블 (들)의 위치 범위를 얻을 수 있다면 그것은 좋을 것입니다.

감사합니다.

Answer 1

: 각 워크 시트를 통해 루프 당신이 찾고있는 일을 찾아 그 sheeet에 PivotTables 통해 .PivotTables.Count > 0 다음 루프가 시트를 찾고 있습니다. 직접 실행 창에 결과를 인쇄합니다.

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 컬렉션을 노출해야합니다. 이 당신을 위해 작동합니다

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