Clase ModelTable (Excel VBA)

La clase ModelTable representa una tabla en el modelo de datos.

Set

Para usar una variable de clase ModelTable, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase ModelTable : ModelMeasure.AssociatedTable, ModelRelationship.ForeignKeyTable, ModelRelationship.PrimaryKeyTable, ModelTables.Item, Model.ModelTables y WorkbookConnection.ModelTables

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ModelTable en una colección.

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

ModelTableColumns

Colección de objetos ModelTableColumns que componen la modeltable.

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

Name

Devuelve un valor de tipo String que representa el nombre del objeto.

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

Parent

Devuelve un objeto Object que representa el objeto primario del objeto modeltaable especificado.

RecordCount

Devuelve el número total de filas de la tabla de modelos.

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

Refresh

Actualiza las conexiones de origen de la tabla del modelo.

ActiveWorkbook.Model.ModelTables(1).Refresh

SourceName

Nombre del origen de datos de la tabla.

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

SourceWorkbookConnection

Devuelve la conexión del libro desde la que se originó la tabla de modelo.

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

ModelTables.Count

Devuelve un valor de tipo Long que representa el número de objetos modeltable en una colección ModelTables .

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

ModelTables.Item

Devuelve un solo objeto de la colección ModelTables .

Sintaxis : expression.Item (Index)

Index: El número de índice o el nombre del objeto.

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

ModelTables.Parent

Devuelve un objeto Object que representa el objeto primario del objeto ModelTables especificado.