Clase ModelRelationships (Excel VBA)

Esta colección contiene todas las relaciones entre tablas de datos en el modelo de datos de Excel 2013. Para usar una variable de clase ModelRelationships, primero debe ser instanciado, por ejemplo

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

For Each

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

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

Add

Agrega una nueva relación al modelo.

Add (ForeignKeyColumn, PrimaryKeyColumn)

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

Arguments

Estos son los argumentos con nombre :

ForeignKeyColumn (ModelTableColumn) - Un objeto ModelTableColumn que representa la columna de clave externa de la tabla en el lado varios de la relación uno a varios.

PrimaryKeyColumn (ModelTableColumn) - Un objeto ModelTableColumn que representa la columna de clave principal de la tabla en el lado uno de la relación uno a varios.

Count

Devuelve un valor de tipo Long que representa el número de objetos ModelRelationship de un objeto método modelrelationships .

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

DetectRelationships

Detecta las relaciones del modelo en el objeto PivotTable especificado.

DetectRelationships (PivotTable)

PivotTable: La tabla dinámica en la que se detectan las relaciones del modelo.

ActiveWorkbook.Model.ModelRelationships.DetectRelationships PivotTable:=

Item

Devuelve un único objeto del objeto método modelrelationships .

Item (Index)

Index: Número de índice del objeto.

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