Sub Öffnen()
'ggf. Laufwerk und Ordner als Vorgabe setzen
ChDir "\"
ChDrive "c:\"
'Das Dialogfenster
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname
End Sub
Möchten Sie weitere Dateitypen neben *.xls auswählen können
muss folgende Syntax verwendet werden:
Datei = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls,Textdateien (*.txt), _
*.txt,Add-In-Dateien (*.xla),*.xla")
|