Moin zusammen,
ich versuche gerade in einer Excel Tabelle verschiedene Informationen aus anderen Excel Tabellen zu suchen und zu kopieren.
Dies ist mir schon mit folgendem Code gelungen:
Sub ADO_Material()
Dim Connection As New ADODB.Connection 'Variablen deklarieren
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant
Dim wert As String
wert = Worksheets("Tabelle1").Range("C3").Value 'wert aus Dropdown auslesen
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=xxx\Desktop\Freigabegrenzen Archiv.xlsx;HDR=Yes';" 'Connection herstellen
Query = "SELECT * FROM [Tabelle1$] WHERE Qualität = '" & wert & "'" 'Query definieren und ausführen
rs.Open Query, Connection
Tabelle1.Range("A24").CopyFromRecordset rs 'Daten ins Tabellenblatt laden
'arr = rs.GetRows 'Daten in einen Array laden
'rs.Close 'Connection schließen
Connection.Close
Allerdings möchte mir das mit einer anderen Datei nicht gelingen und schmeißt mir dauernd den Fehler:
: Description : "[Microsoft][ODBC-Treiber für Excel] Datentypenkonflikt in Kriterienausdruck." : String
: NativeError : -3030 : Long
: Number : -2147217913 : Long
: Source : "Microsoft OLE DB Provider for ODBC Drivers" : String
: SQLState : "22005" : String
Die Dateien in der Zieldatei liegen alle als Zahl vor.
Vielen Dank für die Hilfe!