Gruppe
Datei
Problem
Es soll ein Dateiname ausgewählt und die zugehörige Arbeitsmappe geöffnet werden.
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