Classe WorkbookConnection (Excel VBA)

Uma conexão é um conjunto de informações necessárias para obter dados de uma fonte de dados externa diferente de uma pasta de trabalho do Microsoft Excel.

Os principais procedimentos da classe WorkbookConnection são Connections.AddFromFile e Delete

Set

Para usar uma variável de classe WorkbookConnection, ela primeiro precisa ser instanciada por exemplo

Dim wbcon as WorkbookConnection
Set wbcon = ActiveWorkbook.Connections(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo WorkbookConnection: Workbook.Connections, Connections.Item, Connections.Add2, Connections.AddFromFile, Model.AddConnection, Model.CreateModelWorkbookConnection, Model.DataModelConnection, ModelTable.SourceWorkbookConnection, PivotCache.WorkbookConnection, QueryTable.WorkbookConnection, SlicerCache.WorkbookConnection, TableObject.WorkbookConnection e XmlMap.WorkbookConnection

For Each

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

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

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Model with its procedures InModel, ModelConnection e ModelTables

Métodos

Estes são os principais métodos da classe WorkbookConnection

Connections.AddFromFile - Adiciona uma conexão do arquivo especificado.

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

Delete - Exclui a conexão de uma pasta de trabalho.

ActiveWorkbook.Connections(1).Delete

Estes são os principais métodos da classe

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

Refresh - Atualiza a conexão de uma pasta de trabalho.

Propriedades

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

Dim lngCount As Long
lngCount = ActiveWorkbook.Connections.Count

Connections.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWorkbook.Connections.Parent

DataFeedConnection Retorna um objeto DataFeedConnection que contém os dados e a funcionalidade necessários para se conectar a feeds de dados. Somente leitura.

Dim dfcDataFeedConnection As DataFeedConnection
Set dfcDataFeedConnection = ActiveWorkbook.Connections(1).DataFeedConnection

Description Retorna ou define ou breve descrição de um objeto WorkbookConnection. String de leitura/gravação.

ActiveWorkbook.Connections(1).Description =

Name Retorna ou define o nome do objeto WorkbookConnection . String de leitura/gravação.

ActiveWorkbook.Connections(1).Name =

ODBCConnection Retorna os detalhes de conexão ODBC para o objeto WorkbookConnection especificado. ODBCConnection somente leitura.

Dim odbODBCConnection As ODBCConnection
Set odbODBCConnection = ActiveWorkbook.Connections(1).ODBCConnection

OLEDBConnection Retorna os detalhes de conexão OLEDB para o objeto WorkbookConnection especificado. Somente leitura OLEDBConnection.

Dim oleOLEDBConnection As OLEDBConnection
Set oleOLEDBConnection = ActiveWorkbook.Connections(1).OLEDBConnection

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWorkbook.Connections(1).Parent

Ranges Retorna o intervalo de objetos para o objeto WorkbookConnection especificado. Ranges somente leitura.

Dim rngsRanges As Ranges
Set rngsRanges = ActiveWorkbook.Connections(1).Ranges

RefreshWithRefreshAll Determina se a conexão deve ser atualizada quando atualizar tudo é executada. Boolean de leitura/gravação.

ActiveWorkbook.Connections(1).RefreshWithRefreshAll = True

TextConnection Retorna um objeto textconnection que contém as informações de uma consulta a um arquivo de texto. Somente leitura.

Dim tcnTextConnection As TextConnection
Set tcnTextConnection = ActiveWorkbook.Connections(1).TextConnection

Type Retorna o tipo de conexão da pasta de trabalho. Somente leitura XlConnectionType.

Dim xctType As XlConnectionType
xctType = ActiveWorkbook.Connections(1).Type

WorksheetDataConnection Retorna um objeto que contém informações para uma conexão do modelo do PowerPivot para dados dentro da pasta de trabalho, como um intervalo, um intervalo nomeado ou uma tabela. Somente leitura.

Dim wdcWorksheetDataConnection As WorksheetDataConnection
Set wdcWorksheetDataConnection = ActiveWorkbook.Connections(1).WorksheetDataConnection