Clase Connections (Excel VBA)

Una colección de objetos WorkbookConnection para el libro especificado. Para usar una variable de clase Connections, primero debe ser instanciado, por ejemplo


Dim cnns as Connections
Set cnns = ActiveWorkbook.Connections

For Each

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


Dim wbconConnection As WorkbookConnection
For Each wbconConnection In ActiveWorkbook.Connections
	
Next wbconConnection

Add2

Add2 (Name, Description, ConnectionString, CommandText, lCmdtype, CreateModelConnection, ImportRelationships)


Dim strName As String: strName = 
Dim strDescription As String: strDescription = 
Dim strConnectionString As String: strConnectionString = 
Dim strCommandText As String: strCommandText = 
Dim wbconAdd2 As WorkbookConnection
Set wbconAdd2 = ActiveWorkbook.Connections.Add2(Name:=strName, Description:=strDescription, ConnectionString:=strConnectionString, CommandText:=strCommandText)

Arguments

Estos son los argumentos con nombre :

Name - String

Description - String

ConnectionString - String

CommandText - String

Optional arguments

Los siguientes argumentos son opcionales

lCmdtype

CreateModelConnection

ImportRelationships

AddFromFile

Agrega una conexión desde el archivo especificado.

AddFromFile (Filename, CreateModelConnection, ImportRelationships)


Dim strFilename As String: strFilename = 
Dim wbconAddFromFile As WorkbookConnection
Set wbconAddFromFile = ActiveWorkbook.Connections.AddFromFile(Filename:=strFilename)

Arguments

Un argumento con nombre

Filename (String) - Nombre del archivo.

Optional arguments

Los siguientes argumentos son opcionales

CreateModelConnection (Boolean) - Especifica si se va a crear la conexión al modelo.

ImportRelationships (Boolean) - Especifica si se va a importar la relación de conexión.

Count

Devuelve el número de objetos de la colección.


Dim lngCount As Long
lngCount = ActiveWorkbook.Connections.Count

Item

Este método crea un elemento de conexión.

Item (Index)

Index: Valor de índice del elemento.


Dim wbconConnection As WorkbookConnection
Set wbconConnection = ActiveWorkbook.Connections(Index:=1)