Kann die Function-Eigenschaft der PivotField-Klasse

Question

nicht festlegen Ich versuche, den AVERAGE des "Tempo de Espera" in der PivotTable PT2 zu erhalten. Wenn ich jedoch ".Function = xlAverage" verwende, erhalte ich den folgenden Fehler: Die Function-Eigenschaft der PivotField-Klasse kann nicht festgelegt werden. Kann mir bitte jemand eine Hand geben?

PT2.AddDataField PT2.PivotFields("Tempo de Espera"), "Count of Tempo de Espera", xlCount 


With PT2.PivotFields("Count of Tempo de Espera") 
.Orientation = xlDataField 
.Function = xlAverage 'ERROR HERE - ErrorMsg: Unable to set the Function property of the PivotField class 
.Caption = "Average of Tempo de Espera" 
.NumberFormat = "h:mm:ss" 

End With 

Answer 1

die Lösung gefunden. Um den obigen Code arbeiten zu können, musste ich den PivotTableVersion auf Version15 setzen.

Nahm mich einen ganzen Nachmittag, um es zu bekommen, aber endlich funktioniert. Bellow folgt dem Code I verwendet, wenn PivotTable- und Pivotcache zu schaffen, die das Problem lösen verwaltet:

Set PC = ThisWorkbook.PivotCaches.Create(xlDatabase, Sheet3.Cells(1, 1).CurrentRegion, Version:=xlPivotTableVersion15) 
Set PT2 = Sheet4.PivotTables.Add(PivotCache:=PC, TableDestination:=Sheet4.Cells(3, c), _ 
TableName:="PivotTable2", DefaultVersion:=xlPivotTableVersion15)