Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speichern in neuen Folder - Teil2

Speichern in neuen Folder - Teil2
28.10.2004 15:17:08
Lisa
Hallo,
Hab eben von Udo diesen Ansatz bekommen, um einen Folder mit dem
Tagesdatum anzulegen.
If Dir("H:\Personal\Excel_VBA\test\" & Format(Date, "YYYYMMDD"), vbDirectory) = "" Then
MkDir "H:\Personal\Excel_VBA\test\" & Format(Date, "YYYYMMDD")
End If
Schön und gut, nur steh ich mal wieder voll aufm Schlauch.
Wie um alles in der Welt bring ich in diesen Code hinein, dass
er mir die Datei gleich in diesen Folder speichert und ihn nicht
nur erstellt.
Ich hab echt alles versucht, doch leider ohne Erfolg.
Danke, dass Ihr einer blutigen Anfängerin helft.
Grüsse Lisa

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
datei in anderem Pfad speichern
Reinhard
Hi Lisa,
ist ja nur eine kleine Zusatzfrage, damit wärst du besser in der alten beitragsfolge geblieben und hättest rechts das äkchen bei Frage noch odden gesetzt.
Probiers mal so:

Sub lisa()
Dim Pfad As String
Pfad = "H:\Personal\Excel_VBA\test\" & Format(Date, "YYYYMMDD")
If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
ThisWorkbook.SaveAs Pfad & "\" & ThisWorkbook.Name
End Sub

Gruß
Reinhard
AW: datei in anderem Pfad speichern
Lisa
Hallo Reinhard
Danke für Deine Hilfe, es funktioniert
und entschuldige, dass ich einen neuen
Thread geschrieben habe, wusste das mit
dem "Häckchen" nicht - werde das nächste
mal drauf achten.
Danke nochmals und schönen Tag noch.
Gruss Lisa
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige