ピボットテーブルを実行してフィルタ/ラベルを変更するためのVBAコード

Question

効果的にピボットテーブルを使用して一連のシートをループするVBAコードを作成しようとしています。私は以下のコードでデモしようとしたので、セル値に応じてフィルタを変更/変更します）。これは実行には至りません（私は完全な初心者のコードを更新しようとしています）ので、私が望む結果のために定義された変数をどのように使用するかについてのポインタを探しています。 （多くはより多くの、これは私が遭遇しただけで最初の問題であり、ループに行く私の現在の問題は

Option Explicit 
Dim MySheet As Worksheet 
Dim MyPivot As PivotTable 
Dim NewCat As String 

Sub RefreshPivots() 

For Each MySheet In ActiveWorkbook.Worksheets 
    For Each MyPivot In MySheet.PivotTables 
     NewCat = Worksheets("WorkingSheet").Range("B44").Value 
     MyPivot.RefreshTable 

     With ActiveSheet 
     .MyPivot.AddDataField 
     .MyPivot.PivotFields ("GuidelinePercent"), "Count of GuidelinePercent", xlCount 
     End With 

    Next MyPivot 
Next MySheet 

など、私はフィールドの変更を開始するために、ピボットテーブルを呼び出すように見えることはできませんということです

）。

私は取得しています：Run-time error '438' Object doesn't support this property or methodライン

With ActiveSheet.MyPivot.AddDataField

上のすべてのヘルプは素晴らしいことです！

EDIT;

With ActiveSheet 
.PivotTables(MyPivot).AddDataField 
.PivotTables(MyPivot).PivotFields ("GuidelinePercent"), "Count of GuidelinePercent", xlCount 
End With 

をしようと、私はライン.MyPivot.AddDataField上Run-time error'1004': Unable to get the Pivot Tables property of the Worksheet class得ます。

Answer 1

あなたはFor Each MySheet In ActiveWorkbook.Worksheetsのループを持っているので、あなたは後でWith ActiveSheetそれはMySheetと同じシートではありません、InfactはあなたがActiveSheetを使用する必要はありません使用しているとき、あなたは直接あなたがMyPivotに名前を付けるPivotTableオブジェクトを使用することができます。

With MyPivot 
    .AddDataField .PivotFields("GuidelinePercent"), "Count of GuidelinePercent", xlCount 
End With 

編集1：

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

Dim PvtFld As PivotField 

With MyPivot 
    On Error Resume Next 
    Set PvtFld = .PivotFields("GuidelinePercent") 
    On Error GoTo 0 
    If PvtFld Is Nothing Then 
     MsgBox "Error in setting the PivotField" 
    Else 
     .AddDataField PvtFld, "Count of " & PvtFld.Name, xlCount 
    End If 
End With