Classe ModelTableColumn - uma única coluna dentro de um objeto modeltable (Excel VBA)

A classe ModelTableColumn representa uma única coluna dentro de um objeto modeltable. Para usar uma variável de classe ModelTableColumn, ela primeiro precisa ser instanciada por exemplo

Dim mtc as ModelTableColumn
Set mtc = ActiveWorkbook.Model.ModelRelationships(1).ForeignKeyColumn

For Each

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

Dim mtc As ModelTableColumn
For Each mtc In ActiveWorkbook.Model.ModelRelationships.ModelTableColumns
	
Next mtc

DataType

Retorna a enumeração XlParameterDataType de ModelTableColumn. Somente leitura.

Dim lngDataType As Long
lngDataType = ActiveWorkbook.Model.ModelRelationships(1).ForeignKeyColumn.DataType

Name

Retorna um valor String que representa o nome do objeto.

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