Klasse ModelTable - eine Tabelle im Datenmodell (Excel VBA)

Die Klasse ModelTable stellt eine Tabelle im Datenmodell dar. Um eine ModelTable -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

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

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