�ffnen-Dialog (GetOpenFilename) mit vorgegebenen Ordner

Diese Routine �ffnet den Dialog zum �ffnen einer Datei.
Zuvor wird in einen Vorgabeordner gewechselt.
Sub �ffnen()
    ChDir "\"
    ChDrive "c:"
    ChDir "c:\eigene dateien\excel"
    Datei = Application.GetOpenFilename _
       ("Microsoft Excel-Dateien (*.xls), *.xls")
    If Datei = False Then Exit Sub
    Workbooks.OpenText Filename:=Datei, Origin:=xlWindows
End Sub