Microsoft Excel

Herbers Excel/VBA-Archiv

Dateien ohne Pfad einlesen | Herbers Excel-Forum


Betrifft: Dateien ohne Pfad einlesen von: edie
Geschrieben am: 31.12.2009 16:15:27

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

  

Betrifft: ermittle die Länge mit Len(sPath) ... von: Matthias L
Geschrieben am: 31.12.2009 16:28:27

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


  

Betrifft: AW: Dateien ohne Pfad einlesen von: ransi
Geschrieben am: 31.12.2009 16:28:37

HAllo

Cells(i, 1).Value = dir(.FoundFiles(i))

ransi


  

Betrifft: AW: Dateien ohne Pfad einlesen von: edie
Geschrieben am: 31.12.2009 16:37:01

Hallo Matthias L,
Hallo ransi,

vielen herzlichen Dank, beides Lösungen funktionieren.

Danke und Grüße


  

Betrifft: Aufgabe gelöst o.T. von: edie
Geschrieben am: 31.12.2009 16:33:21

.


  

Betrifft: AW: Dateien ohne Pfad einlesen von: Hajo_Zi
Geschrieben am: 31.12.2009 16:33:41

Hallo edie,

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


GrußformelHomepage


  

Betrifft: Danke und einen guten Start in das Neue Jahr von: edie
Geschrieben am: 31.12.2009 16:41:51

Hallo Hajo_Zi,

vielen Dank eien Idee mehr.

Danke und einen guten Start in das Neue Jahr.

Grüße


Beiträge aus den Excel-Beispielen zum Thema "Dateien ohne Pfad einlesen"