Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datensicherung

Datensicherung
17.12.2018 13:33:36
Joachim
Hallo zusammen,
ich möchte gerne eine Datensicherung per Makro durchführen, bei der mehrere Dateien in einen neuen Ordner (der das aktuelle Datum enthalten soll)kopiert werden. Die kopierten Dateien sollen auch das aktuelle Datum angehängt bekommen. Den Ordner zu erstellen hab ich schon hingekriegt. Ich bekomme dann aber Probleme beim kopieren. Bisher habe ich folgendes zusammengebastelt.
Sub Datensicherung()
Const Pfad = "c:\daten\Datensicherung\"
Dim PfadDatum As String
Dim strDatum As String
Dim strZiel As String
Dim strQuelle As String
strDatum = Format(Date, "YYYY.MM.DD")
MkDir ("c:\daten\Datensicherung\" & strDatum)
strQuelle = "z:\2019\BUPLA\1900\2019_1900_Personal.xlsm"
strZiel = "c:\Daten\Datensicherung\" & strDatum
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyfile strQuelle, strZiel
Set objFSO = Nothing
End Sub

Kann mir jemand weiterhelfen?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensicherung
17.12.2018 15:36:57
Niclaus
Hallo Joachim
Bei mir macht das folgende Makro folgendes:
Die Datei "Testdatei.xlsx" (qFile) wird vom qFolder in den tFolder kopiert und heisst dort "Testdatei_20181217.xlsx" (tFile).
Sub DateiKopieren()
Dim myFSO As Object
Dim qFolder As String, tFolder As String
Dim qFile As String, tFile As String
Set myFSO = CreateObject("Scripting.FileSystemObject")
SichDatum = Date
SichDatSuffix = "_" & Right(SichDatum, 4) & Mid(SichDatum, 4, 2) & Left(SichDatum, 2)
qFolder = "D:\TEST_Ordner\"
tFolder = "D:\TEST2_Ordner\"
qFile = "Testdatei.xlsx"
tFile = Left(qFile, InStr(qFile, ".") - 1) & SichDatSuffix & Mid(qFile, InStr(qFile, "."), 9)
FileCopy qFolder & qFile, tFolder & tFile
End Sub

Ich hoffe, das hilft Dir einen Schritt weiter. Niclaus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige