1

...レポートフィルターから凡例フィールドおよびその逆まで、エラーが発生します...これは記録時に作成されるコードです。

Sub ByPlant()
'
' ByPlant Macro
'

'
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Sociedad")
    .Orientation = xlColumnField
    .Position = 2
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Proveedor")
    .Orientation = xlPageField
    .Position = 1
End With
End Sub

そして、私がそれを実行しようとすると、それは私にこれを与えます：

実行時エラー1004がワークシートクラスのピボットテーブルプロパティを取得できません

この行を強調しています：

With ActiveSheet.PivotTables("PivotTable3").PivotFields("Sociedad")

助けてもらえますか？前もって感謝します！

4

1 に答える 1

1

このランタイム エラーは、ピボット テーブルの名前が正しくない場合にスローされます。このようにワークシートを修飾して修正してみてください。

With Worksheets("Sheet1").PivotTables("PivotTable3").PivotFields("Sociedad")
于 2012-12-11T04:35:56.927 に答える