VBA 를 사용하여 메모리에서 직접 피벗 테이블을 생성하는 방법

Public Sub 피벗 테이블 생성 ()

Dimwb 는 통합 문서로 세 가지 변수를 선언합니다!

피벗 테이블로 점 표시

Pc 를 PivotCache 로 어둡게 합니다

오류 발생 시 오류 처리기로 이동

워크북을 엽니다. 즉, 변수를 설정하여 통합 문서를 엽니다.

Wb = Workbooks 를 설정합니다. 열기 ("c: ₩ pivotdata ₩ rawdata.xls")

원근 캐시를 생성합니다. Pivot 메모리 캐시 만들기!

Pc = WB 를 설정합니다. Pivotcaches.add (소스 유형: = xldatabase, 소스 데이터: = "[rawdata.xls] sheet1 (A4:C28 ")

CreatePivotTable 메소드 및 피벗 캐시를 사용하여 피벗 테이블을 생성합니다!

Pt = PC 를 설정합니다. Create pivot table table destination: = "[rawdata.xls] sheet 2!" , 테이블 이름: = "데이터"

이것은 오류 처리기입니다!

웹. 워크시트 (워크시트 2). 활동을 하다

EndOfSub:

출구 커넥터

오류 처리기:

만약 틀렸다면. Number = 5 또는 Err 입니다. 그럼 숫자 = 9

MsgBox "파일을 찾을 수 없음"

ElseIf 오류입니다. 번호 = 1004

MsgBox "이 위치에는 이미 피벗 테이블이 있습니다."

기타

MsgBox 오류입니다. 오류&'-'& 어. 설명

만약 ... 끝날거야

계속해서 Sub 를 종료합니다

끝단 접합

위의 방법은 보고서에 필드가 없는 4 셀 피벗 테이블을 생성합니다!