Classe ModelRelationships (Excel VBA)

Essa coleção contém todas as relações entre tabelas de dados no modelo de dados do Excel 2013. Para usar uma variável de classe ModelRelationships, ela primeiro precisa ser instanciada por exemplo

Dim mrs as ModelRelationships
Set mrs = ActiveWorkbook.Model.ModelRelationships

For Each

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

Dim mrel As ModelRelationship
For Each mrel In ActiveWorkbook.Model.ModelRelationships
	
Next mrel

Add

Adiciona uma nova relação ao modelo.

Add (ForeignKeyColumn, PrimaryKeyColumn)

Dim mrel As ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships.Add(ForeignKeyColumn:=, PrimaryKeyColumn:=)

Arguments

O seguinte argumento é opcional

ForeignKeyColumn (ModelTableColumn) - Um objeto ModelTableColumn que representa a coluna de chave estrangeira na tabela no lado muitos da relação um-para-muitos.

PrimaryKeyColumn (ModelTableColumn) - Um objeto ModelTableColumn que representa a coluna de chave primária na tabela em um lado da relação um-para-muitos.

Count

Retorna um valor Long que representa o número de objetos ModelRelationship em um objeto ModelRelationships . Somente leitura.

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

DetectRelationships

Detecta relações de modelo no objeto PivotTable especificado.

DetectRelationships (PivotTable)

PivotTable: A tabela dinâmica na qual as relações de modelo serão detectadas.

ActiveWorkbook.Model.ModelRelationships.DetectRelationships PivotTable:=

Item

Retorna um único objeto do objeto ModelRelationships .

Item (Index)

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

Dim mrel As ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships(Index:=1)