将值字段添加到数据透视表时出现错误

Question

你好，

我有一个 excel 宏，我在其中将最后的数据组合成一个枢轴 table。但是我还有一个子程序，它向 table 添加了一个值字段。它看起来像这样：

Sub AddValuesField()
    Dim pvt As PivotTable
    Dim pf As String
    Dim pf_Name As String
    
    Dim sDatasheet  As String
    Dim sPivotName  As String
    sPivotName = "Pivot1"
    sDatasheet = "Documents with extracted fields"

    Sheets(sPivotName).Select
    Set pvt = Sheets(sPivotName).PivotTables("PivotTable1")
   
    pf = Sheets(sDatasheet).Range("A1").Value
    pvt.AddDataField pvt.PivotFields(pf), pf, xlSum
End sub

列的名称存储在 pf(pivotfield) 中。然而，我得到了我梦寐以求的最具描述性的错误：“1004 对象定义错误”

我希望这里有人能帮助我:)

克，门诺

Answer 1

将字段添加为 Sum 到您的 Pivot-Table 时，您需要在 PivotField 名称前添加单词 "Sum of"。

更改线路：

pvt.AddDataField pvt.PivotFields(pf), pf, xlSum

至：

pvt.AddDataField pvt.PivotFields(pf), "Sum of " & pf, xlSum

注意：您不需要Select您的工作表，您可以直接使用Set pvt = Sheets(sPivotName).PivotTables("PivotTable1")而不先选择它。

将值字段添加到数据透视表时出现错误

I get an error while adding value fields to pivot

excel

vba

pivot