Speichern im gleichen Verzeichnis VBA
28.02.2018 14:16:04
Werner
mit folgendem Makro speichere ich per Button
die gerade geöffnete Datei in einem "fest definierten" Verzeichnis
(hier d:\private\backup)
und "setzt das Datum Uhrzeit und User" davor
Kann man das Makro so ändern, dass die "Sicherung"
generell im "gleichen Verzeichnis", in dem sich die aktuelle
Datei befindet, gespeichert wird ?
Freu mich auf einen Tipp :)
Gruß
Werner
Sub KopieSpeichern()
Dim sPath As String, sFile As String, sName As String, Tagesdatum As String
Dim sEndung As String
Dim iWortlaenge As Integer
Dim iStellePunkt As Integer
sPath = "d:\private\backup"
user = Environ("username")
Tagesdatum = Application.Text(Now(), "yymmdd hhmm")
If Right(sPath, 1) "\" Then
sPath = sPath & "\"
End If
iStellePunkt = InStrRev(ActiveWorkbook.Name, ".") ' Anzahl Zeichen vor dem _
letzten Punkt
sName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
iWortlaenge = Len(ActiveWorkbook.Name) ' Anzahl Zeichen des _
Dateinamens
sEndung = Right(ActiveWorkbook.Name, iWortlaenge - iStellePunkt) ' Dateiendung wird extrahiert
sFile = Tagesdatum & " " & user & " " & sName & sEndung
ActiveWorkbook.SaveCopyAs sPath & sFile
End Sub
Anzeige