Klasse ModelRelationships (Excel VBA)

Diese Auflistung enthält alle Beziehungen zwischen Datentabellen im Datenmodell von Excel 2013. Um eine ModelRelationships -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim mrs as ModelRelationships
Set mrs = ActiveWorkbook.Model.ModelRelationships

For Each

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

Dim mrel As ModelRelationship
For Each mrel In ActiveWorkbook.Model.ModelRelationships
	
Next mrel

Add

Fügt dem Modell eine neue Beziehung hinzu.

Add (ForeignKeyColumn, PrimaryKeyColumn)

Dim mrel As ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships.Add(ForeignKeyColumn:=, PrimaryKeyColumn:=)

Arguments

Hier sind die benannte Argumente :

ForeignKeyColumn (ModelTableColumn) - Ein ModelTableColumn -Objekt, das die Fremdschlüsselspalte in der Tabelle auf der n-Seite der 1: n-Beziehung darstellt.

PrimaryKeyColumn (ModelTableColumn) - Ein ModelTableColumn -Objekt, das die Primärschlüsselspalte in der Tabelle auf der 1-Seite der 1: n-Beziehung darstellt.

Count

Gibt einen Long -Wert zurück, der die Anzahl der ModelRelationship -Objekte in einem ModelRelationships -Objekt darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.Model.ModelRelationships.Count

DetectRelationships

Erkennt Modell Beziehungen im angegebenen PivotTable -Objekt.

DetectRelationships (PivotTable)

PivotTable: Die PivotTable, in der Modell Beziehungen ermittelt werden sollen.

ActiveWorkbook.Model.ModelRelationships.DetectRelationships PivotTable:=

Item

Gibt ein einzelnes Objekt aus dem ModelRelationships -Objekt zurück.

Item (Index)

Index: Die Indexnummer für das Objekt

Dim mrel As ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships(Index:=1)