Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

datei per VBA kopieren

Forumthread: datei per VBA kopieren

datei per VBA kopieren
17.11.2005 21:45:09
Micha
Hallo Leute,
ich habe ein bestimmte Datei, welche ich automatisch an einen anderen Ort kopieren möchte. Wie kann ich die Sache mittels VBA angehen?
Sinngemäß müsst der Code heißen:
kopiere Datei X an die Stelle Y und füge in dem Namen ein Datum dazu.
Geht sowas?
Vielen Dank für Eure Hilfe, Gruß Micha
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: datei per VBA kopieren
17.11.2005 23:31:11
Aton
Hallo
Dieses Makro coppiert die Aktuelle mappe in den ordner C:\Sicherungen
Dieser Pfad anpassen, oder den Ordner erstellen.
Datum und Uhrzeit nach Dateinamen.
Gruß Aton

Sub DateiSicherungsCoppy()
Dim Pfad As String, Datei1 As String, Datei2 As String
If ActiveWorkbook.Saved = False Then 'Originaldatei wurde noch nicht gespeichert!
ActiveWorkbook.Save
End If
Datei1 = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'Name Originaldatei
Pfad = "C:\Sicherungen" 'Pfad zur Sicherung
Datei2 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Format(Now, "DD-MM-YYYY hh-mm-ss") & ".xls"
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & Datei2 _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close 'gesicherte Datei schließen
Workbooks.Open Filename:=Datei1 'Originaldatei wieder öffnen
End Sub

Anzeige
AW: datei per VBA kopieren
18.11.2005 07:39:56
WernerB.
Hallo Micha,
wie gefällt Dir das?

Sub Micha()
Dim newName As String, copName As String
newName = "D:\Test\MappeX" & Date & ".xls"
copName = "C:\Temp\MappeX.xls"
FileCopy newName, copName
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige