ランタイムエラー1004 - ピボットテーブルを更新するマクロ

Question

マクロを使用してピボットテーブルを更新しようとしています。これは、毎月テーブルの最後にデータが追加されるためです（最後の行にデータを追加するように更新します）。 .SourceData行で

Option Explicit 

Sub Pivot() 

Dim shConD As Worksheet 
Dim shPvtTbl As Worksheet 
Dim lr As Long 
Dim rng As Range 

Set shConD = ActiveWorkbook.Sheets("Consolidated_Data") 
Set shPvtTbl = ActiveWorkbook.Sheets("PivotTables") 

lr = shConD.Range("A" & Rows.Count).End(xlUp).Row 
Set rng = shConD.Range("A1:F" & lr) 

With shPvtTbl.PivotTables(3).PivotCache 
    .SourceData = rng.Address(True, True, xlR1C1, True) 'Error appears here 
    .Refresh 
End With 

End Sub 

は、私は、実行時エラー1004アプリケーション定義またはオブジェクト定義のエラーを取得しています。この threadのロジックと続きます chat。先輩に感謝します。

Answer 1

をExcelテーブル（別名ListObject）を開き、下に示すように、ピボットテーブルデータソースの変更でテーブル名を使用します。

テーブルの魔法のおかげで、その時点で、テーブルに新しいデータを追加するたびに自動的に展開されます。ピボットテーブルを更新するたびに、常に新しいデータが自動的に取得されます。再度ピボットテーブルデータソースを変更する必要はありません。

Answer 2

以下のコード（コードのコメント内の説明）試してみてください：は、Excel 2007以降を使用している場合は、これを実現する最も簡単な方法は、あなたのピボットテーブルのソースデータがあることを確認することです

Option Explicit 

Sub Pivot() 

Dim shConD As Worksheet 
Dim shPvtTbl As Worksheet 
Dim lr As Long 
Dim rng As Range 

' Added PivotTable variables 
Dim PvtTbl As PivotTable 
Dim PvtCache As PivotCache 

Set shConD = ActiveWorkbook.Sheets("Consolidated_Data") 
Set shPvtTbl = ActiveWorkbook.Sheets("PivotTables") 

lr = shConD.Range("A" & shConD.Rows.Count).End(xlUp).Row 
Set rng = shConD.Range("A1:F" & lr) 

' set/update the PivotCache (with latest rng modifications 
Set PvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rng.Address(False, False, xlA1, xlExternal)) 
' for DEBUG Only 
Debug.Print PvtCache.SourceData 

' set the PivotTable object 
Set PvtTbl = shPvtTbl.PivotTables(3) 
' for DEBUG Only 
Debug.Print PvtTbl.Name 

' refresh the PivotTable with the updated PivotCache 
PvtTbl.ChangePivotCache PvtCache 
PvtTbl.RefreshTable 

End Sub