Klasse Connections (Excel VBA)

Eine Auflistung von WorkbookConnection -Objekten für die angegebene Arbeitsmappe. Um eine Connections -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim cnns as Connections
Set cnns = ActiveWorkbook.Connections

For Each

Hier ist ein Beispiel für die Verarbeitung der Connections -Elemente in einer Sammlung

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

Hier sind die benannte Argumente :

Name - String

Description - String

ConnectionString - String

CommandText - String

Optional arguments

Die folgenden Argumente sind optional

lCmdtype

CreateModelConnection

ImportRelationships

AddFromFile

Fügt eine Verbindung aus der angegebenen Datei hinzu.

AddFromFile (Filename, CreateModelConnection, ImportRelationships)

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

Arguments

Ein benanntes Argument

Filename (String) - Name der Datei.

Optional arguments

Die folgenden Argumente sind optional

CreateModelConnection (Boolean) - Gibt an, ob die Verbindung mit dem Modell erstellt werden soll.

ImportRelationships (Boolean) - Gibt an, ob die Verbindungsbeziehung importiert werden soll.

Count

Gibt die Anzahl der Objekte in der Auflistung zurück.

Dim lngCount As Long
lngCount = ActiveWorkbook.Connections.Count

Item

Diese Methode erstellt ein Verbindungselement.

Item (Index)

Index: Indexwert des Elements.

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