피벗 테이블을 생성 할 때 기록 된 매크로 (VBA)에서 동적 소스 데이터를 사용하는 방법

일반적으로 활성 시트의 데이터에서 피벗 테이블을 만들려면 이와 같은 작업을 수행합니다.

    Dim wb As Workbook, wsSource As Worksheet, wsDest As Worksheet
    Dim pc As PivotCache, pt As PivotTable
    
    Set wb = ActiveWorkbook
    Set wsSource = ActiveSheet
    Set wsDest = wb.Sheets.Add(after:=wb.Sheets(wb.Sheets.Count))
    wsDest.Name = "Pivot"
    
    'create the pivot cache first
    Set pc = wb.PivotCaches.Create(SourceType:=xlDatabase, _
               SourceData:=wsSource.Range("A1").CurrentRegion, Version:=6)

    '...then the pivottable
    Set pt = pc.CreatePivotTable(TableDestination:=wsDest.Range("A3"), _
                                 TableName:="PivotTable1", DefaultVersion:=6)