Hallo zusammen
ich sthe total auf dem Schlauch und habe dazu nichts gefunden ich importiere Daten aus einer Datei mit ADO - das geht super.
Allerdings möchte ich das der Dateiname hier nicht felt eingetragen ist sondern aus einem Feld in Excel Tabelle5(Hilfsliste) C20 steht auf das heier verwiesen werden soll.
Könnt ihr mir da helfen?
Sub ADOK02()
'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=Z:\Personal\Abrechnungsdateien\2023\Küche\Stundenübersicht_Team_Küche_Februar.xlsm;HDR=Yes';"
'Query definieren und ausführen
Query = "SELECT * FROM [Auswertung Summe$]"
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
End Sub
|