Classe Connections (Excel VBA)

Uma coleção de objetos WorkbookConnection para a pasta de trabalho especificada. Para usar uma variável de classe Connections, ela primeiro precisa ser instanciada por exemplo

Dim cnns as Connections
Set cnns = ActiveWorkbook.Connections

For Each

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

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

O seguinte argumento é opcional

Name - String

Description - String

ConnectionString - String

CommandText - String

Optional arguments

Os seguintes argumentos são opcionais

lCmdtype

CreateModelConnection

ImportRelationships

AddFromFile

Adiciona uma conexão do arquivo especificado.

AddFromFile (Filename, CreateModelConnection, ImportRelationships)

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

Arguments

O seguinte argumento é necessário

Filename (String) - Nome do arquivo.

Optional arguments

Os seguintes argumentos são opcionais

CreateModelConnection (Boolean) - Especifica se a conexão com o modelo deve ser criada.

ImportRelationships (Boolean) - Especifica se a relação de conexão deve ser importada.

Count

Retorna o número de objetos na coleção. Somente leitura Long.

Dim lngCount As Long
lngCount = ActiveWorkbook.Connections.Count

Item

Este método cria um item de conexão.

Item (Index)

Index: Valor de índice do item.

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