VBA-Beispiel 094
mail schreiben
mail schreiben

per VBA Standarddialog "Speichern unter" aufrufen

Standarddialog "Speichern unter" aufrufen und Dateinamen vorgeben.
Im zweiten Beispiel wird zusätzlich noch die Pfadangabe eingetragen.
Sub Speichern_unter_aufrufen()
Dim Dateiname As String

'Dateiname basteln - Jahr Monat Tag
Dateiname = Format(Date, "yyyy-mm-dd")

'Dialog "Speichern unter" aufrufen und Dateinamen vorgeben
Application.Dialogs(xlDialogSaveAs).Show Dateiname

End Sub


Sub Speichern_unter_aufrufen_mit_Pfadangabe()
Dim Dateiname As String

'Dateiname basteln - Jahr Monat Tag
Dateiname = Format(Date, "yyyy-mm-dd")

'Dialog "Speichern unter" aufrufen
'Pfad und Dateinamen vorgeben
Application.Dialogs(xlDialogSaveAs).Show "C:\" & Dateiname

End Sub

Download:   vba094.zip