sorting枢轴表

我碰到一个问题，macros指出：

运行时错误“1004”应用程序定义或对象定义的错误。

但是我认为我确实定义了它？ 先前在这个代码中定义了WS1，并且没有与该部分有关的问题。 这是本节代码的最后一行有问题。

预先感谢您的帮助！

'Update Pivot Table Dim GroupPivot As PivotTable Set GroupPivot = WS1.PivotTables("GroupPivot") GroupPivot.PivotCache.Refresh 'Sort PivotTable WS1.PivotTables("GroupPivot").PivotFields("Sum of Discrepancy").AutoSort Order:=xlDescending, Type:=xlSortValues 

Answer 1

首先（这不是问题）是你在第三行定义了GroupPivot，但最后一行你不使用它。
其次（这是问题），您没有使用正确的参数名称。 “自动sorting”的两个必需参数是“订单”和“字段”。
最后一行应该是这样的：

 GroupPivot.PivotFields("Sum of Discrepancy").AutoSort Order:=xlDescending, Field:="Discrepancy" 

但上面的字段名称可能不正确。 它应该匹配枢轴字段的SourceName