ADO Einführung

Inhalt

  • ADO (ActiveX Data Objects)-Bibliothek aktivieren
  • 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
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ä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
Mein Kurs

Jetzt registrieren

Close Bitnami banner
Bitnami