ich möchte alle Excel Dateien eines Verzeichnisse ohne Ordnerangaben in eine Listbox in einer Userform einlesen.
Vielen Dank für Eure Hilfe
Gruss Harald
Sub Dateien_einlesen()
Dim strDatei As String
Dim strPfad As String
strPfad = "C:\Temp\" 'anpassen
strDatei = Dir(strPfad)
Do
UserForm1.ListBox1.AddItem strDatei
strDatei = Dir
Loop Until strDatei = ""
UserForm1.Show
End Sub
Gruß Ingolf
Option Explicit
Private Sub CommandButton1_Click()
Dim fs As Object
Dim fo As Object
Dim datei
ListBox1.Clear
Set fs = CreateObject("Scripting.FileSystemObject")
Set fo = fs.GetFolder("D:Eigene Dateien")
For Each datei In fo.Files
ListBox1.AddItem Dir(datei)
Next
End Sub