Klasse PivotCaches - die Auflistung der Cachespeicher der PivotTable-Berichte in einer Arbeitsmappe (Excel VBA)

Die Klasse PivotCaches stellt die Auflistung der Cachespeicher der PivotTable-Berichte in einer Arbeitsmappe dar. Um eine PivotCaches -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim pcs as PivotCaches
Set pcs = ActiveWorkbook.PivotCaches()

For Each

Hier ist ein Beispiel für die Verarbeitung der PivotCaches -Elemente in einer Sammlung

Dim pvtcac As PivotCache
For Each pvtcac In ActiveWorkbook.PivotCaches()
	
Next pvtcac

Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.PivotCaches.Count

Create

Erstellt ein neues PivotCache-Objekt.

Die folgenden beiden XlPivotTableSourceType -Konstanten werden beim Erstellen einer PivotCache mithilfe dieser Methode nicht unterstützt: xlPivotTable und xlScenario. Das SourceData -Argument ist erforderlich __ , wenn sourceType nicht xlExternalist. Beim Übergeben eines Range -Objekts wird empfohlen, dass Sie entweder eine Zeichenfolge verwenden, um die Arbeitsmappe, das Arbeitsblatt und den Zellbereiche anzugeben oder einen benannten Range einzurichten und den Namen als Zeichenfolge zu übergeben. Bei fehlender Angabe weist die PivotTable die Version xlPivotTableVersion12 auf.

Create (SourceType, SourceData, Version)

Dim pvtcacCreate As PivotCache
Set pvtcacCreate = ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation)

Arguments

Ein benanntes Argument

SourceType (XlPivotTableSourceType) - SourceType kann eine der folgenden XlPivotTableSourceType -Konstanten sein: xlConsolidation, xlDatabaseoder xlExternal.

Möglichen Werte sind

Optional arguments

Die folgenden Argumente sind optional

SourceData - Die Daten für den neuen PivotTable-Cache

Version (XlPivotTableVersionList) - Version der PivotTable.

Möglichen Werte sind

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer für das Objekt.

Dim pvtcac As PivotCache
Set pvtcac = ActiveWorkbook.PivotCaches(Index:=1)