如何使用vba更改數據透視表中計算字段的名稱

Question

我使用了下面的代碼。 但它仍然沒有更新計算字段的名稱。

ActiveSheet.PivotTables(PivotName).CalculatedFields.Add "basic_amt", _
    "=((amount + other_charges) - discount_amt)", True
ActiveSheet.PivotTables(PivotName).PivotFields("basic_amt").Orientation = xlDataField
ActiveSheet.PivotTables(PivotName).PivotFields("basic_amt").Name = "Basic Amount"
ActiveSheet.PivotTables(PivotName).PivotFields("basic_amt").NumberFormat = "###0.00"

Answer 1

您可以使用以下代碼更新所有數據透視表：

'Refresh All Pivot Tables
 ActiveWorkbook.RefreshAll

要更新工作表中的特定數據透視表：

'Refresh A Single Pivot Table
ActiveSheet.PivotTables("YourPivotTable").PivotCache.Refresh

如果要更新另一個工作表中的特定數據透視表，可以使用：

'Refresh A Single Pivot Table
 ThisWorkbook.Sheets("YourSheet").PivotTables("YourPivotTable").PivotCache.Refresh