Klasse ModelTable (Excel VBA)

Die Klasse ModelTable stellt eine Tabelle im Datenmodell dar.

Set

Um eine ModelTable -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim mdlt as ModelTable
Set mdlt = ActiveWorkbook.Model.ModelTables(Index:=1)

Die folgenden Prozeduren können zum Festlegen der ModelTable Klassenvariablen verwendet werden : ModelMeasure.AssociatedTable, ModelRelationship.ForeignKeyTable, ModelRelationship.PrimaryKeyTable, ModelTables.Item, Model.ModelTables und WorkbookConnection.ModelTables

For Each

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

Dim mdlt As ModelTable
For Each mdlt In ActiveWorkbook.Model.ModelTables
	
Next mdlt

ModelTableColumns

Auflistung von ModelTableColumns -Objekten, die die Modell-Tabellenerstellungs-Objekt bilden.

Dim mtcsModelTableColumns As ModelTableColumns
Set mtcsModelTableColumns = ActiveWorkbook.Model.ModelTables(1).ModelTableColumns

Name

Gibt einen String -Wert, der den Namen des Objekts darstellt.

Dim strName As String
strName = ActiveWorkbook.Model.ModelTables(1).Name

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen modelable-Objekts darstellt.

RecordCount

Gibt die Gesamtanzahl der Zeilen für die Modelltabelle zurück.

Dim lngRecordCount As Long
lngRecordCount = ActiveWorkbook.Model.ModelTables(1).RecordCount

Refresh

Aktualisiert die Modelltabellen-Quellverbindungen.

ActiveWorkbook.Model.ModelTables(1).Refresh

SourceName

Name der Datenquelle für die Tabelle.

Dim strSourceName As String
strSourceName = ActiveWorkbook.Model.ModelTables(1).SourceName

SourceWorkbookConnection

Gibt die arbeitsmappenVerbindung zurück, von der die Modelltabelle stammt.

Dim wbconSourceWorkbookConnection As WorkbookConnection
Set wbconSourceWorkbookConnection = ActiveWorkbook.Model.ModelTables(1).SourceWorkbookConnection

ModelTables.Count

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

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

ModelTables.Item

Gibt ein einzelnes Objekt aus der ModelTables -Auflistung zurück.

Syntax : expression.Item (Index)

Index: Die Indexnummer oder der Name des Objekts.

Dim mdlt As ModelTable
Set mdlt = ActiveWorkbook.Model.ModelTables(Index:=1)

ModelTables.Parent

Gibt ein Object zurück, das das übergeordnete Objekt des angegebenen ModelTables -Objekts darstellt.