| VBA-Beispiel 094 | |
|
|
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 |
|
relevante Links:
|
|
| |