ADO Laufzeitfehler
05.10.2022 16:16:20
Henry
ich würde gerne mit ADO drei Zellen (A1, A2, A3) in meine Arbeitsmappe in die Zellen B1, B2, B3 kopieren.
Mein Code sieht wie folgt aus:
Leider bekommt ich einen Laufzeitfehler.
Ich denke es liegt an diesen Zeile:
Query = "Select [" & Range("A1") & "],[" & Range("A2") & "],[" & Range("A3") & "] FROM [Tabelle1$]"
Tabelle1.Range("B1").CopyFromRecordset rs
Tabelle1.Range("B2").CopyFromRecordset rs
Tabelle1.Range("B3").CopyFromRecordset rs
Sub ADO()
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=C:\Users\testuser\Desktop\test.xlsx"
Query = "Select [" & Range("A1") & "],[" & Range("A2") & "],[" & Range("A3") & "] FROM [Tabelle1$]"
rs.Open Query, Connection
Tabelle1.Range("B1").CopyFromRecordset rs
Tabelle1.Range("B2").CopyFromRecordset rs
Tabelle1.Range("B3").CopyFromRecordset rs
rs.Close
Connection.Close
End Sub