Datei speichern unter mit VBA in Microsoft Excel

Beim Dialog zum Speichern einer Datei kann u. a. ein einzelner Dateiname voreingestellt werden.

Sub DateiSpeichernUnter()
Dim Erfolg As Boolean
Workbooks.Add
Erfolg = Application.Dialogs(xlDialogSaveAs). _
Show(arg1:="Test.xlsx")
If Not Erfolg Then _
MsgBox "Keine Datei ausgewählt"
End Sub

Die Konstante ist xlDialogSaveAs . Falls der Benutzer nur den Button Speichern betätigt, wird die neu erzeugte Datei unter dem Namen Test.xlsx gespeichert.

In den Versionen vor Excel 2007 muss die Dateibezeichnung in der Prozedur und in der Erläuterung wie folgt lauten: Test.xls.

War die Erklärung zu "Datei speichern unter mit VBA in Microsoft Excel" hilfreich? Jetzt bewerten:

Weitere Erklärungen zu