Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

automatisch Dateinamen erzeugen

automatisch Dateinamen erzeugen
13.01.2004 08:27:04
Torsten
Ich öffne mittels Makro täglich eine Datei, wo sich wegen dem Datum der Dateiname täglich ändert.
So siehts aus:
Workbooks.Open "F:\Archiv-Netzlastdaten\" & CStr(Year(Date)) & CStr(Format(CStr(Month(Date)), "00")) & CStr(Format(CStr(Day(Date - 1)), "00")) & "_000777_10YDE-VE-------2_01.xls"
Nun möchte ich aber das obige Ergebnis als Text zum generieren einer gleichnamigen Datei in einem anderen Pfad verwenden, muß also sicherlich das Ergebnis irgendwie in einer Variable speichern und dann weiterverarbeiten.
Bloß wie?
Danke schon mal im voraus !!!
Torsten

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisch Dateinamen erzeugen
13.01.2004 09:18:33
Franz W.
Hallo Torsten,
so müsste es gehen, versuche es mal:
Workbooks.Open "F:\Archiv-Netzlastdaten\" & CStr(Year(Date)) & CStr(Format(CStr(Month(Date)), "00")) & CStr(Format(CStr(Day(Date - 1)), "00")) & "_000777_10YDE-VE-------2_01.xls"
ActiveWorkbook.SaveAs "F:\HIER_DEIN_NEUER_PFAD\AUCH_MIT_UNTERVERZEICHNISSEN_MÖGLICH\" & CStr(Year(Date)) & CStr(Format(CStr(Month(Date)), "00")) & CStr(Format(CStr(Day(Date - 1)), "00")) & "_000777_10YDE-VE-------2_01.xls"
Grüße
Franz
AW: automatisch Dateinamen erzeugen
13.01.2004 10:16:42
Torsten
Ja, es ging prima !!! Vielen Dank !!!
Gern geschehen :-). Geschlossen o.t.
13.01.2004 10:32:41
Franz W.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige