実行時エラー '5'：無効なポシジョン呼び出しまたは引数

Question

ブックにピボットテーブルが2つあり、データソースを動的に変更してピボットテーブルを更新する次のコードがあります。最初のFor Each ptループをループしてコードが正常に実行され、最初のピボットテーブルがリフレッシュされます。それは第二ピボットテーブルのためにループしたときただし、コードがエラーでpt.ChangePitvotCacheでクラッシュ：

Run-time error = '5': invalid procedure call or argument"

いできるだけ早く私は以上1 Pivot-を持っているように、これは動作しない理由に助けることができる誰もコードのテーブル？

Dim ws As Worksheet 
Dim pvtCache As PivotCache 
Dim pt As PivotTable 
Dim newRange As String 

Set DataSource = DataSht.Range("A1", DataSht.Range("A1").End(xlToRight).End(xlDown)) 

newRange = DataSht.Name & "!" & DataSource.Address(ReferenceStyle:=xlR1C1) 

Set pvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=newRange) 

For Each ws In ActiveWorkbook.Worksheets 
    For Each pt In ws.PivotTables 
     pt.ChangePivotCache pvtCache 
     pt.RefreshTable 
    Next pt 
Next ws 

Answer 1

あなたが最初PivotTableに設定した後pvtCacheを「リセット」する必要があります。

したがって pvtCacheにして、ループ内に「リセット」する必要があります。

は、以下のコードを試してください：

For Each ws In ActiveWorkbook.Worksheets 
    For Each pt In ws.PivotTables 
     Set pvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=newRange) 
     pt.ChangePivotCache pvtCache 
     pt.RefreshTable 
     Set pvtCache = Nothing 
    Next pt 
Next ws 

Answer 2

はPivotCacheを変更するデータセットは、テーブルにデータソースを変換し、テーブル名にピボットテーブルのソースを変更することによって生成される各時間を有するの周り得ました。