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 '插入位置
'.分类汇总...Count,Average,Max,Min,Product,Count Nums,StdDev,StdDevp,Var,Varp)
'.SubtotalLocation xlAtTop '分类汇总位置....PivotFields("实际拣货量"), "行", xlCount
.AddDataField .PivotFields("实际拣货量"), "件", xlSum
'全选透视表