Question

我使用vb.net代码创建了数据透视表

    pivotField1 = pivotTable.PivotFields(14)
    pivotField2 = pivotTable.PivotFields(15)
    pivotField3 = pivotTable.PivotFields(16)
    pivotField4 = pivotTable.PivotFields(17)
    pivotField5 = pivotTable.PivotFields(18)

    pivotField1.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField2.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField3.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField4.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField5.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField1.Function = XlConsolidationFunction.xlSum
    pivotField2.Function = XlConsolidationFunction.xlSum
    pivotField3.Function = XlConsolidationFunction.xlSum
    pivotField4.Function = XlConsolidationFunction.xlSum
    pivotField5.Function = XlConsolidationFunction.xlSum

但它在数据透视表中显示为Rowlable中的Sum-Value但我想要ColumnLabel所以请帮助....

Answer 1

使用此...可能会有所帮助：）

Dim ptSigmaRow As PivotField
For Each ptSigmaRow In ptTable.RowFields
    Dim d As String = ptSigmaRow.Name
    If ptSigmaRow.Name = "Data" Then
         ptSigmaRow.Orientation = XlPivotFieldOrientation.xlColumnField
    End If
Next

VB.net中的数据透视表

1 个答案: