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

automatisch Dateinamen erzeugen

Forumthread: automatisch Dateinamen erzeugen

automatisch Dateinamen erzeugen
13.01.2004 09: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 10: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 11:16:42
Torsten
Ja, es ging prima !!! Vielen Dank !!!
Gern geschehen :-). Geschlossen o.t.
13.01.2004 11:32:41
Franz W.

Forumthreads zu verwandten Themen