ich habe einen Ordner, in dem 10-20 Exceldateien liegen. Wie kann ich alle Dateinamen in ein Sheet bekommen?
Danke!
Sub Dateinamen_auslesen()
Dim fso As Object, oFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each oFile In fso.GetFolder(ThisWorkbook.Path & "\Dein Unterordner").Files 'Dein _
Unterordner mit dem Ordnername ersetzen
If LCase(Right(oFile.Name, 4)) = ".xls" Then
If Range("A1") = "" Then
Range("A1").Select
ElseIf Range("A2") = "" Then
Range("A2").Select
Else
lastrow = ActiveSheet.UsedRange.Rows.Address
Range(lastrow).Select
Range("A:A").End(xlDown).Select
VZeile = ActiveCell.Row
Cells(VZeile + 1, 1).Activate
End If
ActiveCell.Value = oFile.Name
End If
Next
End Sub
Gruss
Waven