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

我目前的代码导致我的数据字段返回为行而不是列。 我的目标是使数据字段具有柱状的方向。

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 

Answer 1

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

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