Sub Speichern()
'ggf. Laufwerk und Ordner als Vorgabe setzen
ChDir "\"
ChDrive "c:\"
'Das Dialogfenster, "test.xls" als Vorgabedatei
Dateiname = Application.GetSaveAsFilename _
("Test.xls", "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:
Dateiname = Application.GetSaveAsFilename _
("Test.xls", "Micrsoft Excel-Dateien (*.xls), _
*.xls,Textdateien (*.txt),*.txt,Add-In-Dateien (*.xla),*.xla")
|