CreatePivotTable（）エラー - アプリケーション定義またはオブジェクト定義のエラー

Question

目的

情報のダイナミックレンジに基づいて、ピボットテーブルを作成します。

APPROACH

1. ピボットテーブルのソースデータ（srcData、lastRow）を有することを特定し、シート（ws）をアクティブ
2. 新しいピボットテーブル（pvt）は
を表示する targetシートを確認
3. ソースデータの強調表示と記録（srcData）
4. ピボットキャッシュの作成（ワークシート上の）
5. プレイスピボットテーブル（startPvt）&細胞

CODEに触発

Sub createPivot() 

Dim ws As Worksheet 
Dim pvtCache As pivotCache 
Dim pvt As pivotTable 
Dim srcData As String 
Dim lastRow As Long 
Dim startPvt As String 
Dim target As Worksheet 

'Select pivot table data 
Worksheets("CONSOLIDATED").Activate 
Set ws = ActiveSheet 
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
srcData = ActiveSheet.Name & "!" & Range("A1:H" & lastRow).Address(ReferenceStyle:=xlR1C1) 

'Set pivot table location 
Set target = ThisWorkbook.Worksheets("PIVOT") 
startPvt = target.Name & "!" & target.Range("A1").Address(ReferenceStyle:=xlR1C1) 

'Create pivot cache 
Set pvtCache = ActiveWorkbook.PivotCaches.Create(_ 
    SourceType:=xlDatabase, _ 
    SourceData:=srcData) 

Set pvt = pvtCache.CreatePivotTable(_ 
    TableDestination:=startPvt, _ 
    TableName:="PivotTable1") 

End Sub 

：http://www.thespreadsheetguru.com/blog/2014/9/27/vba-guide-excel-pivot-tables

課題

実行時エラー '1004'：アプリケーション定義またはオブジェクト定義のエラーライン@

：

Set pvt = pvtCache.CreatePivotTable(_ 
    TableDestination:=startPvt, _ 
    TableName:="PivotTable1") 

質問

1. は、私はクレイジーつもりです？私はこのコードを複数回校正して、どこが間違っているのか理解できません。この時点で、私は迷っています。エラーが発生した理由についての説明を参考にしてください。自分の質問に答える

Answer 1

：

@Parfaitは正しかったが、コードにはバグがありません。しかし、マクロはまだキャッシング段階で凍結の兆候を示しました。このエラーを修正するために、コードベースの先頭に次のコードを追加しました。

'Delete previous pivottable 
Worksheets("PIVOT").PivotTables("PivotTable1").TableRange2.Clear 

このコードは、新しいテーブルを作成するための既存のピボットテーブルを削除します。