R1C1", _
TableName:="数据透视表1", _
DefaultVersion:=4
'xlPivotTableVersion10=1(03)11=2()12=3(...)14=4(2010)~15=5(2013)6(2016)
'必须在表激活情况下才能操作表中的数据透视表
With ActiveSheet.PivotTables("数据透视表1")
'...Orientation = xlRowField / xlColumnField / xlPageField
'.Position = 1 '插入位置
'.分类汇总 = Array (自动,求和,计数...,平均值,最大值,最小值,乘积,数值计数,标准偏差,总体标准差,方差,总体方差)
'.Subtotals = Array(Atuo,Sum,Count,Average,Max,Min,Product....PivotFields("实际拣货量"), "行", xlCount
.AddDataField .PivotFields("实际拣货量"), "件", xlSum
'全选透视表