Classe ModelTable - une table dans le modèle de données (Excel VBA)

La classe ModelTable représente une table dans le modèle de données. Pour utiliser une variable de classe ModelTable, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments ModelTable dans une collection

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

ModelTableColumns

Collection d'objets ModelTableColumns qui composent l' ModelTable. En lecture seule.

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

Name

Renvoie une valeur de type String qui représente le nom de l'objet.

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

RecordCount

Renvoie le nombre total de lignes de la table de modèles. Entier en lecture seule.

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

Refresh

Elle permet d'actualiser les connexions à la source de la table du modèle.

ActiveWorkbook.Model.ModelTables(1).Refresh

SourceName

Nom de la source de données du tableau. Si la table n'a pas de source de données, l'appel génère une erreur d'exécution. Type de données String en lecture seule.

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

SourceWorkbookConnection

Renvoie la connexion de classeur à partir de laquelle la table du modèle est issue. En lecture seule.

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