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
