Classe ModelTable (Excel VBA)

La classe ModelTable représente une table dans le modèle de données.

Set

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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ModelTable : ModelMeasure.AssociatedTable, ModelRelationship.ForeignKeyTable, ModelRelationship.PrimaryKeyTable, ModelTables.Item, Model.ModelTables et WorkbookConnection.ModelTables

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

Parent

Renvoie un Object qui représente l'objet parent de l'objet ModelTable spécifié. En lecture seule.

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

ModelTables.Count

Renvoie une valeur de type long qui représente le nombre d'objets ModelTable dans une collection ModelTables . En lecture seule.

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

ModelTables.Item

Cette méthode renvoie un seul objet de la collection ModelTables .

Syntaxe : expression.Item (Index)

Index: Numéro d'index ou nom de l'objet.

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

ModelTables.Parent

Renvoie un Object qui représente l'objet parent de l'objet ModelTables spécifié. En lecture seule.