Excel: Ordner anlegen, Datei speichern

Geschrieben von Ralf Entner am
Das nachfolgende Makro für Excel überprüft und legt ggf. einen Ordner mit ensprechenden Monatsnamen und Unterordner an und öffnet das "Speichern unter"-Dialogfeld

ordner = MonthName(Month(Date))

MsgBox ordner

pfad = "e:\filme\" & ordner

MsgBox pfad

Datei = InputBox("Bitte Dateinamen eingeben", "Dateinamen angeben", "test
xls")

If Dir(pfad, vbDirectory) = ordner Then _

MsgBox "Verzeichnis existiert bereits" Else _

MkDir pfad

ActiveWorkbook.SaveAs pfad & "\" & Datei
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”
Gene Spafford (Sicherheitsexperte)