計算字段未填充 - Pivot Excel vba

Question

有人可以給出一個簡短的提示，為什么沒有創建計算字段？ 兩個總和出現，但沒有第三個。

'Insert Data Field
With ActiveSheet.PivotTables("ForwinPivotTable").PivotFields("Gross Profit (EUR)")
.Orientation = xlDataField
.Position = 1
.Function = xlSum
.NumberFormat = "#,##0"
.Name = "GP (Eur) "
End With

'Insert Data Field
With ActiveSheet.PivotTables("ForwinPivotTable").PivotFields("Export Chargeable Weight (kg)")
.Orientation = xlDataField
.Position = 1
.Function = xlSum
.NumberFormat = "#,##0"
.Name = "Total Charg. Weight "
End With

With ActiveSheet.PivotTables("ForwinPivotTable").CalculatedFields
.Add "GP/kg (Eur)", "= 'GP (Eur) '/ 'Total Charg. Weight '"
.PivotFields("GP/kg (Eur)").Orientation = xlDataField
End With

Answer 1

    With ActiveSheet.PivotTables("ForwinPivotTable")
    .CalculatedFields.Add "GP/kg (Eur)", "= 'Gross Profit (EUR)'/ 'Export Chargeable Weight (kg)'"
    .PivotFields("GP/kg (Eur)").Orientation = xlDataField
    End With

我犯的錯誤是不是按源標題而是按 pivot 表中的標題引用字段。