Thema: Aus GetOpenFilename-Dialog eine Mehrfachauswahl auslesen

StandardModule: Modul1

Sub FileSelection()
   Dim var As Variant
   Dim iCounter As Integer
   var = Application.GetOpenFilename( _
      FileFilter:="Excel-Dateien (*.xls), *.xls", _
      MultiSelect:=True)
   On Error GoTo ERRORHANDLER
   For iCounter = 1 To UBound(var)
      MsgBox iCounter & ". Datei von " & UBound(var) & ": " & var(iCounter)
   Next iCounter
   Exit Sub
ERRORHANDLER:
   Beep
   MsgBox "Abbruch!"
End Sub

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