Hallo zusammen

leider bin ich nicht so fit in VBA Programmierung, ich habe folgendes Problen - ich möchte aus mehreren Dateien (für jedes Monat eine) Daten in eine Auswertung importieren ohne diese zu öfffnen.

Hierzu habe ich ein Programm (Modul) das auch einwandfrei funktioniert - allerdings brauch ich für jede Monatsdatei ein eingenes Modul weil sich der Namen der Datei aus der ich importiere und der Platz wohin die Daten sollen jedes Monat ändert. Deshalb habe ich das versucht über Variabe zu lösen.

Das mit dem Dateinamen funktionrt schon mal allerdings sobald ich statt der  Zeile Tabelle1.Range("A14").CopyFromRecordset rs die Zeile mit der Variablen sziel.CopyFromRecordset rs aktiviere bekomme ich eine Fehlermeldung. Wenn die sziel-Zeile aber deaktiviert ist bekomme ich im Direktfenster folgendes ausgegeben Tabelle1.Range("A14").

Kann mir jemand helfen wo hier mein Fehler liegt - Vielen Dank schon mal

Sub ADOK01a()
'Variablen deklarieren
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant
Dim spfad As String, sziel As String
spfad = Tabelle5.Range("C19").Value
sziel = Tabelle5.Range("C22").Value
'Connection herstellen
'Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=ielpfadZ;HDR=Yes';"
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & spfad
'Query definieren und ausführen
Query = "SELECT * FROM [Auswertung Summe$]"
rs.Open Query, Connection
'Daten ins Tabellenblatt laden
Debug.Print sziel
'Tabelle1.Range("A14").CopyFromRecordset rs
sziel.CopyFromRecordset rs
rs.Close
End Sub