Gruppe
Datei
Bereich
Öffnen
Thema
Arbeitsmappe auswählen und öffnen
Problem
Es soll ein Dateiname ausgewählt und die zugehörige Arbeitsmappe geöffnet werden.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
ClassModule: DieseArbeitsmappe
Sub WkbOpen()
Dim vFile As Variant
vFile = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xls), *.xls")
If vFile = False Then Exit Sub
Workbooks.Open vFile
End Sub