ADO Einführung

Inhalt

  • ADO-Bibliothek aktivieren: Extras –> Verweise –> Haken setzen bei “Microsoft ActiveX Data Objects 6.1 Library”
  • Daten aus geschlossener Excel-Datei herauskopieren ohne diese Datei zu öffnen
  • Datentypen: ADODB.Connection, ADODB.Recordset
  • Connection Strings
  • Dateipfad auslesen
  • SQL-Query definieren und ausführen
  • Daten in ein Recordset laden
  • Daten vom Recordset in ein Tabellenblatt laden
  • Daten direkt filtern
  • Daten in ein Array laden

Code (UserForm)

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

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung