ich würde gerne die Dateien aus einem Verzeichnis ohne Pfad und ohne Dateiendung nach Excel einlesen.
Gruß M.S.
Sub Dateien_lesen()
Dim strPfad As String, _
strDatei As String
strPfad = "C:\NVIDIA\Win2KXP\93.71\"
strDatei = Dir(strPfad)
Do While strDatei ""
ActiveCell = Left(strDatei, InStrRev(strDatei, ".") - 1)
ActiveCell.Offset(1, 0).Select
strDatei = Dir
Loop
End Sub
Gruß, Wolli
Gruß Sepp