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