Datensicherung auf einem anderen Laufwerk erstellen
Hits

105042


Mit dem folgenden Makro können Sie eine Datensicherung der aktuellen Mappe auf einem anderen Laufwerk erstellen. Der Dateiname bleibt dabei gleich.

Sub speichern_unter()
Dim str As String

Const Lw = "H:\"
Const Pfad = "H:\eigene Dateien\"

str = ActiveWorkbook.Name
ChDrive Lw
ChDir Pfad

ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlNormal
End Sub


In diesem Beispiel wird die Datensicherung auf Laufwerk H: im Verzeichnis \eigene Dateien also H:\eigene Dateien\ erstellt. Der Dateiname wird dabei nicht verändert!

 

< Zurück   Weiter >