동적 범위로 피벗 테이블 vba를 만들려고합니다.

Question

다른 탭을 참조하는 동적 범위로 피벗 테이블을 만들고 싶습니다. 계속 "런타임 오류 '13 - 형식 불일치"주석 뒤에 "피벗 캐시를 정의하십시오". " 어떤 제안?

Sub InsertExportPivotTables() 

'Declare Variables 
Dim PSheet As Worksheet 
Dim DSheet As Worksheet 
Dim PCache As PivotCache 
Dim PTable As PivotTable 
Dim PRange As Range 
Dim LastRow As Long 

'*************Actions by study 
'Insert a New Blank Worksheet for Actions by Study 
Application.DisplayAlerts = False 
Worksheets("Actions by Study").Delete 'deletes worksheet if already exists 
Sheets.Add Before:=ActiveSheet 
ActiveSheet.Name = "Actions by Study" 
Application.DisplayAlerts = True 
Set PSheet = Worksheets("Actions by Study") 
Set DSheet = Worksheets("export") 

'Define Data Range 
LastRow = DSheet.Range("A" & DSheet.Rows.Count).End(xlUp).Row 
Set PRange = DSheet.Range(DSheet.Cells(6, 1), DSheet.Cells(LastRow, "U")) 

'Define Pivot Cache 
Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange, Version:=xlPivotTableVersion14) 

'Insert Blank Pivot Table 
Set PTable = PCache.CreatePivotTable(TableDestination:=PSheet.Cells(1, 1), _ 
     TableName:="ActionsbyStudy01", DefaultVersion:=xlPivotTableVersion14) 

End Sub 

Answer 1

당신은 PivotCaches.Create에게 명명 된 범위 아니지만 범위 개체를 전달할 수 있습니다. SOURCETYPE이 이 xlExternal없는 경우

SourceData 인수가 필요합니다. ( SOURCETYPE이 xlExternal경우) 그것은 범위 (SOURCETYPE이 경우 중 하나 xlConsolidation 또는 xlDatabase) 또는 Excel 통합 문서 연결 개체를 통과해야한다. Range를 전달할 때 문자열을 사용하여 통합 문서, 워크 시트 및 셀 범위를 지정하거나 명명 된 범위를 설정하고 이름을 문자열로 전달하는 것이 좋습니다.

범위 객체를 전달하는 예기치 않게 "유형 불일치"오류가 발생할 수 있습니다.

_{(더 Source에서 정보)는 늘 나를 지금 그것을 편집 할 수}