VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aus GetOpenFilename-Dialog eine Mehrfachauswahl auslesen

Gruppe

Datei

Bereich

Dialog

Thema

Aus GetOpenFilename-Dialog eine Mehrfachauswahl auslesen

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

    


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