HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Dateien ohne Pfad einlesen
edie

Hallo zusammen,
bei der Recherche habe ich das nachfolgende Makro vorgefunden und angepasst,
es werden die Excel-Dateien mit dem Pfad ausgelesen. 
Sub test ()
Dim sPath As String
sPath = ThisWorkbook.Path & "\EDV\"
Dim fs As FileSearch
Dim i As Integer
Set fs = Application.FileSearch
With fs
.FileType = msoFileTypeExcelWorkbooks
.LookIn = sPath
.Execute
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Next i
End With
End Sub

Wäre doch so schön, wenn nur der Dateiname in die Spalte A ausgelesen würde.
Hat jemand einen Tipp und kann helfen?
Vorab vielen Dank.
Grüße

ermittle die Länge mit Len(sPath) ...
Matthias

Hallo
wenn Du die Länge hast kannst Du in etwa sowas benutzen:
Cells(i, 1).Value = Right(.FoundFiles(i), Len(.FoundFiles(i)) - 3)
Habe nur unter C:\ getestet, da ich kein Verzeichnis C:\EDV\ habe.
evtl. mußt Du deshalb "-3" noch mal anpassen
Gruß Matthias
AW: Dateien ohne Pfad einlesen
ransi

HAllo
Cells(i, 1).Value = dir(.FoundFiles(i))
ransi
AW: Dateien ohne Pfad einlesen
edie

Hallo Matthias L,
Hallo ransi,
vielen herzlichen Dank, beides Lösungen funktionieren.
Danke und Grüße
Aufgabe gelöst o.T.
edie

.
AW: Dateien ohne Pfad einlesen
Hajo_Zi

Hallo edie,
Cells(i, 1).Value = Mid(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)

Danke und einen guten Start in das Neue Jahr
edie

Hallo Hajo_Zi,
vielen Dank eien Idee mehr.
Danke und einen guten Start in das Neue Jahr.
Grüße