排序數據透視表

我遇到一個問題，即宏觀狀態：排序數據透視表

運行時錯誤「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

來源

2017-08-01 Sarah

首先（這不是問題）是您在第三行定義了GroupPivot，但在最後一行中沒有使用它。
其次（這是問題），您沒有使用正確的參數名稱。 AutoSort的兩個必需參數是Order和Field。
最後一行應該是這個樣子：

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

但字段名以上可能不正確。它應該匹配樞軸字段的SourceName

來源

2017-08-01 09:40:24 Sam

排序數據透視表

回答

相關問題