Sub saveMulti()
With ThisWorkbook
.Save 'Original speichern
.SaveCopyAs "E:\Test\" & .Name '1. Kopie
.SaveCopyAs "C:\Ordner\" & .Name '2. Kopie
.SaveCopyAs "C:\" & .Name '3. Kopie
.Close
End With
End Sub
On Error Goto ErrExit
Application.DisplayAlerts = False
With ThisWorkbook
.Save 'Original speichern
.SaveCopyAs "C:\Test\" & .Name '1. Kopie
.Close
End With
ErrExit:
Application.DisplayAlerts = True
Um eine Excel-Datei an zwei Orten gleichzeitig zu speichern und anschließend zu schließen, kannst Du den folgenden VBA-Code verwenden:
ALT + F11, um den VBA-Editor zu öffnen.Einfügen und wähle Modul, um ein neues Modul zu erstellen.Sub saveMulti()
With ThisWorkbook
.Save 'Original speichern
.SaveCopyAs "E:\Test\" & .Name '1. Kopie
.SaveCopyAs "C:\Ordner\" & .Name '2. Kopie
.Close
End With
End Sub.SaveCopyAs an, um die entsprechenden Ordner für Deine Excel-Kontoführung festzulegen.MsgBox Dir("C:\Users\Frank Herrmann\Meine Dateien\Kontoführung\Kontoführung 2012\", vbDirectory)Falls Du kein VBA verwenden möchtest, kannst Du auch:
Hier ein Beispiel, wie Du eine Excel-Datei für die Kontoführung speichern kannst:
Sub SaveKontofuehrung()
With ThisWorkbook
.Save 'Original speichern
.SaveCopyAs "C:\Users\DeinBenutzername\Documents\Excel Kontoführung\" & .Name
.SaveCopyAs "D:\Backup\Kontofuehrung\" & .Name
.Close
End With
End SubErsetze „DeinBenutzername“ mit Deinem tatsächlichen Benutzernamen.
Application.DisplayAlerts = False, um Warnmeldungen beim Speichern zu unterdrücken. On Error Goto ErrExit
Application.DisplayAlerts = False
' Dein Code hier
ErrExit:
Application.DisplayAlerts = True1. Wie kann ich sicherstellen, dass die Datei korrekt gespeichert wird?
Verwende die MsgBox-Funktion, um den Speicherort zu überprüfen.
2. Was mache ich, wenn ich eine Fehlermeldung beim Schließen der Datei erhalte?
Überprüfe, ob die Datei bereits in einem anderen Prozess geöffnet ist. Stelle sicher, dass alle Änderungen gespeichert sind, bevor Du versuchst, die Datei zu schließen.