ADO Einführung

Daten aus geschlossener Excel-Datei kopieren

  • 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

Teile diesen Beitrag

Neuste Beiträge

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung