Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1176to1180
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

Datei umbenennen und mit Datum versehen

Datei umbenennen und mit Datum versehen
Matthias
Hallo,
ich möchte mit einem Makro eine Datei kopieren und als Backup woanders ablegen, zusätzlich soll noch als Dateiname ein Wert aus A1 und A2 eingeben plus das Datum.
Also das soll rauskommen "NAMEALT_WertausA1_WertausA2_DATUM.csv"
so weit bin ich schon weiter bringe ich es leider nicht :( kann mir jemand helfen? DANKE!
Sub Datei_verschieben()
Set fs = CreateObject("Scripting.FileSystemObject")
Varfile = Dir("D:\TEMP\IDC.CSV")
If Varfile = "" Then
Else
fs.copyFile "D:\TEMP\IDC.CSV", "D:\TEMP\Backup\IDC.CSV"
End If
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Datei mit Zellwerten und Datum umbenennen
15.09.2010 11:09:11
NoNet
Hallo Matthias,
Hier der angepasste Code (ungetestet) :
Sub Datei_verschieben()
Dim fs As Object, strFile As String
Set fs = CreateObject("Scripting.FileSystemObject")
strFile = Dir("D:\TEMP\IDC.CSV")
If strFile  "" Then
fs.copyFile "D:\TEMP\IDC.CSV", _
"D:\TEMP\Backup\IDC" & "_" & [A1] & "_" & [A2] & "_" & _
Format(Date, "YYYY-MM-DD") & ".CSV"
End If
End Sub
Gruß, NoNet
AW: Datei mit Zellwerten und Datum umbenennen
15.09.2010 11:16:16
Matthias
Hallo NoNet,
Danke! Es funktioniert!!!
Kann ich noch das Tabelleblatt einbauen wo A1 und A2 stehen?
Gruß Matthias
AW: Datei mit Zellwerten und Datum umbenennen
15.09.2010 11:28:25
Gerd
Hallo Matthias!
Dim strDest As String
strDest = CStr("D:\TEMP\Backup\IDC" & "_" & Sheets("Tabelle1").Cells(1, 1) & "_" & Sheets("Tabelle1").Cells(2, 1) & "_" & _
Format(Date, "YYYY-MM-DD") & ".CSV")
Gruß Gerd
Anzeige
AW: Datei mit Zellwerten und Datum umbenennen
15.09.2010 13:14:58
Matthias
Hallo Gerd,
DANKE für die Hilfe!
Es klappt...
BG
Matthias

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige