[算表] VBA产生枢纽分析表,"值"的位置

楼主: homelife (SKY)   2019-02-25 18:53:47
软件: Office 365 Excel
正在尝试使用VBA进行枢纽分析,有成功的产生枢纽分析表,
但是有一个自动产生的项目:"值" 现在是在"列"的项目下面,我希望把它移动到
"栏"的项目下面,但是目前尝试了一些语法都没有成功。
枢纽分析中的画面截图:https://imgur.com/YcIZYe0
附上目前使用的语法:
Dim PTCache As PivotCache
Dim PT As PivotTable
Set PTCache = ThisWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:=ActiveSheet.Range(Cells(1, 1), Cells(workingRow,
workingColumn)))
Set PT = PTCache.CreatePivotTable _
(TableDestination:="", _
TableName:="PivotTable2")
With PT
.PivotFields("AAA").Orientation = xlDataField
.PivotFields("BBB").Orientation = xlDataField
.PivotFields("CCC").Orientation = xlRowField
.PivotFields("DDD").Orientation = xlRowField
'网络上查到可能可以用下面这行来移动"值",但如果加了下面这行就会错误
'.PivotFields("值").Orientation = xlColumnField
End With
作者: soyoso (我是耀宗)   2019-02-25 19:30:00
要加的那行改以.datapivotfield.orientation= xlcolumnfield

Links booklink

Contact Us: admin [ a t ] ucptt.com