Dateinamen ohne Endung per Makro
10.05.2022 07:36:03
Lubber
ich habe mal eine kurze Frage.
Hier seht Ihr ein Makro zum auslesen der Dateinamen aus einem Ordner.
Das Makro läuft und fügt dann auch die Namen inkl. der Dateiendung ins ExcelSheet ein.
Jetzt hätte ich aber gerne noch die Möglichkeit NUR die Dateinamen ohne den Endungen auszulesen.
Und hier komm ich nicht ganz weiter. Kann mir von Euch wer helfen?
Gruß
Lubber
Sub DateinamenAusOrdner()
Dim xRow As Long
Dim xDirect, xFnames, InitialFolder
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Bitte Ordner auswählen"
.InitialFileName = InitialFolder
.Show
If .SelectedItems.Count 0 Then
xDirect = .SelectedItems(1) & "\"
xFnames = Dir(xDirect, vbNormal)
Do While xFnames ""
ActiveCell.Offset(xRow) = xFnames
xRow = xRow + 1
xFnames = Dir
Loop
End If
End With
End Sub