Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

automatisch Dateinamen erzeugen

Forumthread: 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
Anzeige

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
Anzeige
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.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige