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

Speichern mit automatischer Ordnererstellung

Speichern mit automatischer Ordnererstellung
17.06.2006 14:33:43
Stefan
Hallo zusammen
Ist es möglich folgendes
Dim sFile As String, sPatch As String
sPath = Application.DefaultFilePath & "\"
sFile = Range("F2").Value & "_" & _
Range("I2").Value & ".XLS"
ActiveWorkbook.SaveAs sPath & sFile
in einen Ordner zu Speichern welcher automatisch mit aktuellem Monatsname und Jahr erstellt wird(z.B "Juni06")

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern mit automatischer Ordnererstellung
17.06.2006 15:44:38
Werner
Hallo Stefan
Dies fügt ein neues Verzeichnis ein, wenn noch nicht vorhanden
sPath = Application.DefaultFilePath & "\" & Format((Date),"mmmm")&year(Date)
If sPath = "" Then
Else
MkDir sPath
End If
Gruss Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige