PivotTables.Add-Methode (Excel)

Artikel
04/07/2023

Fügt einen neuen PivotTable-Bericht hinzu. Gibt ein PivotTable -Objekt zurück.

Syntax

Ausdruck. Hinzufügen (PivotCache, TableDestination, TableName, ReadData, DefaultVersion)

Ausdruck Eine Variable, die ein PivotTables-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
PivotCache	Erforderlich	PivotCache	Der PivotTable-Cache, auf dem der neue PivotTable-Bericht basiert. Vom Cache werden Daten für den Bericht zur Verfügung gestellt.
TableDestination	Erforderlich	Variant	Die Zelle in der oberen linken Ecke des Zielbereichs des PivotTable-Berichts (der Bereich auf dem Arbeitsblatt, in dem der resultierende Bericht platziert wird). Sie müssen einen Zielbereich auf dem Arbeitsblatt angeben, das das PivotTables-Objekt enthält, das durch Ausdruck angegeben wurde.
TableName	Optional	Variant	Der Name des neuen PivotTable-Berichts.
Readdata	Optional	Variant	Mit True wird ein PivotTable-Cache erstellt, der alle Datensätze aus einer externen Datenbank enthält; dieser Cache kann sehr groß sein. Mit False werden einige Felder als serverbasierte Seitenfelder festgelegt, bevor die Daten gelesen werden.
DefaultVersion	Optional	Variant	Die Version von Microsoft Excel, in der die PivotTable ursprünglich erstellt wurde.

Rückgabewert

Ein PivotTable-Objekt, das den neuen PivotTable-Bericht darstellt.

Beispiel

In diesem Beispiel wird ein neuer PivotTable-Cache basierend auf einem OLAP-Anbieter und dann ein neuer PivotTable-Bericht erstellt, der auf dem Cache in Zelle A1 des ersten Arbeitsblatts basiert.

Dim cnnConn As ADODB.Connection 
Dim rstRecordset As ADODB.Recordset 
Dim cmdCommand As ADODB.Command 
 
' Open the connection. 
Set cnnConn = New ADODB.Connection 
With cnnConn 
 .ConnectionString = _ 
 "Provider=Microsoft.Jet.OLEDB.4.0" 
 .Open "C:\perfdate\record.mdb" 
End With 
 
' Set the command text. 
Set cmdCommand = New ADODB.Command 
Set cmdCommand.ActiveConnection = cnnConn 
With cmdCommand 
 .CommandText = "Select Speed, Pressure, Time From DynoRun" 
 .CommandType = adCmdText 
 .Execute 
End With 
 
' Open the recordset. 
Set rstRecordset = New ADODB.Recordset 
Set rstRecordset.ActiveConnection = cnnConn 
rstRecordset.Open cmdCommand 
 
' Create PivotTable cache and report. 
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _ 
 SourceType:=xlExternal) 
Set objPivotCache.Recordset = rstRecordset 
 
ActiveSheet.PivotTables.Add _ 
 PivotCache:=objPivotCache, _ 
 TableDestination:=Range("A3"), _ 
 TableName:="Performance" 
 
With ActiveSheet.PivotTables("Performance") 
 .SmallGrid = False 
 With .PivotFields("Pressure") 
 .Orientation = xlRowField 
 .Position = 1 
 End With 
 With .PivotFields("Speed") 
 .Orientation = xlColumnField 
 .Position = 1 
 End With 
 With .PivotFields("Time") 
 .Orientation = xlDataField 
 .Position = 1 
 End With 
End With 
 
' Close the connections and clean up. 
cnnConn.Close 
Set cmdCommand = Nothing 
Set rstRecordSet = Nothing 
Set cnnConn = Nothing

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via