Code Snippet "VBA Excel"

Import mehrerer Textdateien mit Dialogfenster

Sub procImportDateien()
  Dim arrfilenames
  Dim intcounter As Integer
  
  arrfilenames = Application.GetOpenFilename("Textdatei, *.txt", 1, "Dateien importieren", "OK", True)
  
  For intcounter = 1 To UBound(arrfilenames)
    Debug.Print arrfilenames(intcounter)
  Next
End Sub