ダイナミックレンジのピボットテーブル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ワークブック接続オブジェクトを渡さなければなりません。範囲を渡すときは、 に文字列を使用してワークブック、ワークシート、およびセル 範囲を指定するか、名前付き範囲を設定して文字列として渡すことをお勧めします。

範囲オブジェクトを渡すと、予期せず "タイプの不一致"エラーが発生する可能性があります。

_{（Sourceではより多くの情報）それは私が今それを編集してみましょう文句を言わないが、SourceDataはPRANGEに設定する必要があります}