Classe ModelTable (Excel VBA)

A classe ModelTable representa uma tabela no modelo de dados.

Set

Para usar uma variável de classe ModelTable, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ModelTable: ModelMeasure.AssociatedTable, ModelRelationship.ForeignKeyTable, ModelRelationship.PrimaryKeyTable, ModelTables.Item, Model.ModelTables e WorkbookConnection.ModelTables

For Each

Aqui está um exemplo de processamento dos itens ModelTable em uma coleção.

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

ModelTableColumns

Coleção de objetos ModelTableColumns que compõem a modeltable. Somente leitura.

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

Name

Retorna um valor String que representa o nome do objeto.

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

Parent

Retorna um objeto que representa o objeto pai do objeto modeltable especificado. Somente leitura.

RecordCount

Retorna a contagem total de linhas para a tabela de modelo. Integer somente leitura.

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

Refresh

Atualiza as conexões de origem da tabela do modelo.

ActiveWorkbook.Model.ModelTables(1).Refresh

SourceName

Nome da fonte de dados da tabela. Se a tabela não tiver uma fonte de dados, a chamada gerará um erro em tempo de execução. String somente leitura.

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

SourceWorkbookConnection

Retorna a conexão de pasta de trabalho da qual a tabela de modelo se originou. Somente leitura.

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

ModelTables.Count

Retorna um valor Long que representa o número de objetos modeltable em uma coleção ModelTables . Somente leitura.

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

ModelTables.Item

Retorna um único objeto da coleção ModelTables .

Sintaxe : expression.Item (Index)

Index: O número de índice ou o nome do objeto.

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

ModelTables.Parent

Retorna um objeto que representa o objeto pai do objeto ModelTables especificado. Somente leitura.