Halllo
Dieser Code liest mir alle Excel Datein des Pfads aus
Dim Dateiname As String, i As Integer
Dateiname = Dir$("D:\Daten\Downloads/*.xls*")
Do While Dateiname <> ""
Range("A2").Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
Ich möchte aber nicht einen Bestimmten Ordner in VBA benennen sondern immer den aktuellen Ordner des Workbooks verwenden,
Danke
Susanne
|