Hallo,
ich habe ein kleines Problem. Ich möchte mit ADO Monatsstatistiken auslesen. Der Dateiname ändert sich aber leider immer. Wie bekomme ich diesen als Variable in den open-Befehl.
Pfad = "C:\Users\Bernd Ritzer\Desktop\Bernd_excel\Excel\Absatz\Daten\2015\01_2015\"
File = "CSV_universal_Kunden_Verkaeufe_01_Exported.csv"
'ADO Start
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pfad & ";Extended Properties=""text;HDR=Yes"";"
With rs
.ActiveConnection = conn
.CursorType = adOpenKeyset
.Open "SELECT * FROM [CSV_universal_Kunden_Verkaeufe_01_Exported.csv]"
tab_Daten.Range("A2").CopyFromRecordset rs
.Close
End With
conn.Close
Also ich möchte für [CSV_universal_Kunden_Verkaeufe_01_Exported.csv] die Variable "File" einsetzen. Aber wie geht das?
Danke für die Hilfe.
ich habe ein kleines Problem. Ich möchte mit ADO Monatsstatistiken auslesen. Der Dateiname ändert sich aber leider immer. Wie bekomme ich diesen als Variable in den open-Befehl.
Pfad = "C:\Users\Bernd Ritzer\Desktop\Bernd_excel\Excel\Absatz\Daten\2015\01_2015\"
File = "CSV_universal_Kunden_Verkaeufe_01_Exported.csv"
'ADO Start
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pfad & ";Extended Properties=""text;HDR=Yes"";"
With rs
.ActiveConnection = conn
.CursorType = adOpenKeyset
.Open "SELECT * FROM [CSV_universal_Kunden_Verkaeufe_01_Exported.csv]"
tab_Daten.Range("A2").CopyFromRecordset rs
.Close
End With
conn.Close
Also ich möchte für [CSV_universal_Kunden_Verkaeufe_01_Exported.csv] die Variable "File" einsetzen. Aber wie geht das?
Danke für die Hilfe.