피벗 테이블 오류 - 형식 불일치

Question

피벗 테이블을 만들려고하지만 "런타임 오류 13 - 형식이 일치하지 않습니다."오류가 발생합니다. 내가 라인을 통해 코드를 실행할 때와 마지막 줄에 오류 땅 "activeworkbook.pivotcaches.etc는 ..."

Sub testmodule() 

Dim wsA, wsB As Worksheet 

Set wsA = ThisWorkbook.Sheets("Sheet1") 
Set wsB = ThisWorkbook.Sheets("Pivot Tables") 


Set rnge = wsA.Range("B6") 
Set rngData = Range(rnge, rnge.End(xlToRight)) 
Set rngData = Range(rnge, rnge.End(xlDown)) 
Set rngB = wsB.Range("C8") 

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, _ 
    Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=rngB, _ 
    TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14 

End Sub 

사람이 내가 잘못 가고 어디 조언을 할 수 있습니까?

Answer 1

변경 ... PivotCaches.Create ...에 ... PivotCaches.Add ... PivotCaches에

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=rngData, _ 
    Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=rngB, _ 
    TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14 

Here's 링크가 마이크로 소프트 개발자 센터에 개체. Create 대신 Add 메서드를 사용합니다. 그러나 구문은 정확합니다.