Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub DateienEinlesen()
   Dim sFile As String, sPattern As String, sPath As String
   Dim iRow As Integer
   Columns(1).ClearContents
   sPath = InputBox( _
      prompt:="Pfad:", Default:="c:\eigene dateien")
   If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
   sPattern = InputBox( _
      prompt:="Dateifilter:", Default:="*.xls")
   sFile = Dir(sPath & sPattern)
   Do Until sFile = ""
      iRow = iRow + 1
      Cells(iRow, 1).Value = sFile
      sFile = Dir()
   Loop
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Datei und Name