Classe ModelTable - uma tabela no modelo de dados (Excel VBA)

A classe ModelTable representa uma tabela no modelo de dados. 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)

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

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