Datensicherung auf einem anderen Laufwerk erstellen

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!

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800