|
Das Select-Statement stimmt syntaktisch nicht.
Ausserdem fehlt die Where-Klausel. (anstelle zweites FROM).
Das Connection-Objekt braucht es nicht.
Der Provider ist Microsoft.ACE.Oledb.
Dim rs As Object 'Adodb.Recordset
With rs
.Open "SELECT [Spalten] FROM `Tabelle$` WHERE [Spalte]=Wert", "Provider=Microsoft.ACE.Oledb.12.0; Extended Properties=""Excel 12.0 xml"";Data Source=" & ThisWorkbook.FullName
Range("...").CopyFromRecordset rs
.Close
End With
Wenn ich nicht verschrieben hab... Bin grad mit smartphone unterwegs, schaue aber später dann nochmal rein.
|