Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Aus GetOpenFilename-Dialog eine Mehrfachauswahl auslesen

Gruppe

Dialog

Problem

Der GetOpenFileName-Dialog soll mit dem Parameter True für MultiSelect aufgerufen und die ausgewählten Dateien sollen genannt werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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