VBA 数据透视表数据字段方向需要翻转答案

【问题标题】：VBA Pivot Table Datafield Orientation Needs to be FlippedVBA 数据透视表数据字段方向需要翻转
【发布时间】：2016-11-03 06:39:28
【问题描述】：

我当前的代码导致我的数据字段以行而不是列的形式返回。我的目标是使数据字段具有列方向。

Set objtable = Sheets(Worksheets.Count).PivotTableWizard

    Set objfield = objtable.PivotFields("Asset ID")
        objfield.Orientation = xlRowField

    Set objfield = objtable.PivotFields("Date")
        objfield.Orientation = xlColumnField

    Set objfield = objtable.PivotFields("Landmark")
        objfield.Orientation = xlPageField

    Set objfield = objtable.PivotFields("Charge")
        objfield.Orientation = xlDataField
        objfield.Function = xlSum

    Set objfield = objtable.PivotFields("Arrival Date")
        objfield.Orientation = xlDataField
        objfield.Function = xlMinenter code here

【问题讨论】：

标签： excel orientation pivot-table vba

【解决方案1】：

这取决于数据透视表版本。以下代码可以帮助解决您的问题，当您创建数据透视表时使用版本 12，即 xlPivotTableVersion12。

DesWorkBk.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=sourcedataStr, Version:=xlPivotTableVersion12).CreatePivotTable _
       TableDestination:=wsPvtTbl.Range("A1"), TableName:="PivotTable2"

【讨论】：