VBA- "エラー1004：PivotFieldクラスのCurrentPageプロパティを取得できません"

Question

各ワークシートに複数のピボットテーブルを含む複数のワークシートを含むExcelワークブックがあります。私はすべてのピボットテーブルをループし、その 'レポート機能'フィルタをリストボックスから選択したユーザー指定の値に変更しようとしています。すべてのピボットテーブルには、「レポート機能」フィルタがあります。

私は約50個のピボットテーブルを持っています。コードは、8つのピボットを除き、すべてのピボットテーブルを正常に変更します。これらの8つのピボットテーブルのフィルタは変更されません。代わりに、エラー "エラー1004：PivotFieldクラスのCurrentPageプロパティを取得できません"が返されます。

wHYこのコードは、少数のピボットテーブルでこのエラーを返しますか？

不思議なことに、このエラーを返すピボットテーブルとまったく同じようです。

Sub ChangePivotFilter(str As String) 

Dim ws As Excel.Worksheet 
Dim aWB As Excel.Workbook 
Dim myPivot As Excel.PivotTable 
Dim myPivotField As Excel.PivotField 

Set aWB = ActiveWorkbook 
For Each ws In aWB.Worksheets 

    For Each myPivot In ws.PivotTables 
     Set myPivotField = Nothing 

     On Error Resume Next 
     Set myPivotField = myPivot.PivotFields("Report Function") 
     myPivotField.CurrentPage = str 
    Next myPivot 
Next ws 

End Sub 

ご協力いただきありがとうございます。

Answer 1

に割り当て、またはPivotFieldはそのピボットテーブルの「ページ」（すなわち「フィルタ」）には、物理​​的にではない場合CurrentPageからの読み取りに失敗します：

あなたがプログラム的PivotFieldを送ることができます次のようにOrientationプロパティをxlPageFieldに設定して、「ページ」を開きます。

myPivotField.Orientation = xlPageField