"
Dialogfenster "Datei speichern unter"

31.05.2002

 

So rufen Sie das Dialogfenster auf, um eine Datei zu speichern.
Dabei muss es sich nicht unbedingt um das Speuichern handeln,
denn die Aktion nach dem Aufruf des Fensters müssen Sie selbst definieren.

 
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")