Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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 !

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige