Question

我遇到了宏指出的问题：

运行时错误'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，但在最后一行你不使用它。
第二个（这是问题），您没有使用正确的参数名称。 AutoSort的两个必需参数是Order和Field 最后一行应该是这样的：

return $this->with('index')->find($id)->pluck('index.indexField');

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

对数据透视表进行排序

1 个答案: