Hallo,
mit dem Filedialogpicker übergibst du den dateipfad an eine Variable. (Wie der Vorposter schon geschrieben hat.)
Dann schreibst du einen Loop mit DIR, welche alle Dateien in diesem Pfad nacheinander behandelt.
Nun musst du hier noch deine Anweisung in diese Schleife einbauen und den Wert in ein sheet schreiben lassen.
Das sieht dann so aus: (Ohne auslesen des Dateipfades)
Dim VarAllfiles As Variant
Dim Dateiname As String
Dim FSO As New FileSystemObject
VarAllfiles = Dir(XXXXXX) 'hier setzt du den String ein, welcher deinen Ordnerpfad enthält
Do While VarAllfiles <> ""
Set FSO = CreateObject("Scripting.FileSystemObject")
Dateiname = FSO.GetFileName(Varallfiles)
'Hier definieren, wohin die Variable "Dateiname" geschrieben werden soll, hiernach offset anpassen
VarAllfiles = Dir
Loop
end sub
Ungestestet aber ich hoffe das passt als ansatz.
mfg
|