ADO Einführung

Daten aus geschlossener Excel Datei kopieren

Ich zeige dir, wie du Daten aus einer geschlossenen Excel Datei importieren kannst.

Schritt 1: ADO Bibliothek aktivieren

Diese findest du unter Extras – Verweise – Microsoft ActiveX Data Objects 6.1 Library
Setze hier den Haken, um die Aktivierung durchzuführen.

Schritt 2: Connection herstellen

Jetzt musst du eine Verbindung zur geschlossenen Arbeitsmappe herstellen. Dies geschieht über den sogenannten Connction String.

Schritt 3: SQL Query definieren

Der Datenquelle übergibst du über den Query, welche Daten du von wo abrufen willst und speicherst diese in ein Recordset.

Schritt 4: Daten in Tabellenblatt laden

Die gespeichert Daten im Recordset kannst du jetzt auf dein Tabellenblatt übertragen.

Alternativ kannst du auch ein Array mit den Daten aus der geschlossenen Arbeitsmappe befüllen, um diese weiterzuverarbeiten.

Schritt 5: Connection schließen

Zum Abschluss musst du die Connection und das Recordset schließen.

Hier ist das Codebeispiel aus meinem Video:

				
					Sub ADO()

'Variablen deklarieren
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant

'Connection herstellen
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=C:\Users\kaiwe\Desktop\February.xlsx;HDR=Yes';"

'Query definieren und ausführen
Query = "SELECT * FROM [Tabelle1$] WHERE Product = 'VTT'"
rs.Open Query, Connection

'Daten ins Tabellenblatt laden
Tabelle1.Range("A8").CopyFromRecordset rs

'Daten in einen Array laden
'arr = rs.GetRows

'Connection schließen
rs.Close
Connection.Close


'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub
				
			

Ich hoffe dieses Tutorial hilft dir dabei, deine Anwendungen zu verbessern und den Zugriff auf geschlossene Arbeitsmappen zu ermöglichen.

Um VBA zu lernen und besser zu verstehen, empfehle ich dir mein kostenloses Grundlagentraining, in dem ich dir die ersten Schritt in Excel-VBA zeige.

Melde dich gerne für meinen Newsletter an und erhalte regelmäßig Tipps & Tricks rund um das Thema Excel VBA!

Teile diesen Beitrag

Empfehlungen für dich

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung