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