msoFileDialogSaveAs in Excel VBA richtig nutzen
Schritt-für-Schritt-Anleitung
Um die msoFileDialogSaveAs-Dialogbox in Excel VBA zu verwenden, gehe folgendermaßen vor:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge ein neues Modul hinzu, indem du im Menü auf
Einfügen > Modul klickst.
- Verwende den folgenden Code, um den Save As-Dialog anzuzeigen:
Sub DateiSpeichern()
Dim Dialog As FileDialog
Dim Pfad As String
Pfad = "Q:\Personal Leitung\Abrechnung\Gehaltsläufe\2017\BPx\"
Set Dialog = Application.FileDialog(msoFileDialogSaveAs)
With Dialog
.InitialFileName = Pfad
.Filters.Clear
.Filters.Add "Excel Dateien", "*.xlsm", 1
If .Show = -1 Then
ActiveWorkbook.SaveAs .SelectedItems(1)
End If
End With
End Sub
- Schließe den VBA-Editor und führe das Makro aus.
Häufige Fehler und Lösungen
-
Laufzeitfehler 438: Dieser Fehler tritt auf, wenn die .Filters-Eigenschaft falsch verwendet wird. Stelle sicher, dass du .Filters.Add korrekt schreibst.
-
Dialog wird nicht angezeigt: Überprüfe, ob die Set Dialog = Application.FileDialog(msoFileDialogSaveAs) Zeile korrekt ist und du das Makro ausführst.
-
Keine Filter angezeigt: Der msoFileDialogSaveAs unterstützt keine Filter. Verwende stattdessen Application.GetSaveAsFilename, wie weiter unten beschrieben.
Alternative Methoden
Wenn du eine Filterfunktion benötigst, solltest du Application.GetSaveAsFilename verwenden, da msoFileDialogSaveAs keine Filter unterstützt. Hier ein Beispiel:
Sub DateiSpeichernAlternativ()
Dim fileSaveName As Variant
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="Q:\Personal Leitung\Abrechnung\Gehaltsläufe\2017\BPx\Test.xlsm", _
FileFilter:="Excel-Workbooks (*.xlsm), *.xlsm")
If fileSaveName <> False Then
ThisWorkbook.SaveAs fileName:=fileSaveName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Else
MsgBox "Speichern abgebrochen!", vbOKOnly + vbExclamation
End If
End Sub
Praktische Beispiele
- Dialog mit Filter:
Sub SpeichernMitFilter()
Dim Dialog As FileDialog
Set Dialog = Application.FileDialog(msoFileDialogSaveAs)
With Dialog
.Filters.Clear
.Filters.Add "Excel-Dateien", "*.xlsm"
.Show
End With
End Sub
- Einfacher Save As Dialog:
Sub EinfachSpeichern()
Dim savePath As Variant
savePath = Application.GetSaveAsFilename()
If savePath <> False Then
ActiveWorkbook.SaveAs Filename:=savePath
End If
End Sub
Tipps für Profis
- Verwende
Variant für Pfad-Deklarationen: Dadurch können verschiedene Datentypen gespeichert werden, was die Flexibilität erhöht.
- Nutze
.Filters.Clear: Dies stellt sicher, dass alte Filter gelöscht werden, bevor neue hinzugefügt werden.
- Teste deinen Code regelmäßig, um sicherzustellen, dass die Dialogbox wie gewünscht funktioniert und dass alle Filter korrekt angewendet werden.
FAQ: Häufige Fragen
1. Unterstützt msoFileDialogSaveAs Filter?
Nein, der msoFileDialogSaveAs unterstützt keine Filter. Verwende Application.GetSaveAsFilename für Filteroptionen.
2. Wie kann ich einen Standardpfad für den Dialog festlegen?
Verwende die .InitialFileName-Eigenschaft, um einen Standardpfad vorzugeben.
3. Was ist der Unterschied zwischen msoFileDialogSaveAs und GetSaveAsFilename?
msoFileDialogSaveAs öffnet eine Dialogbox, während GetSaveAsFilename eine Dateipfad-Variable zurückgibt, ohne die Datei direkt zu speichern.
