Word VBA - Ordner unter Verwendung vom Datum erstellen

Word VBA - Ordner unter Verwendung vom Datum erstellen (1 Beitrag, 35 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

hallo,

ich habe folgende aufgabe:

gegeben:
tagesdatum
übergeordnetes verzeichnis/übergordneter pfad

in abhängigkeit vom tagesdatum soll geprüft werden ob

der tag ein erster (des monats) ist
der tag ein montag ist

ist der tag ein 1., soll im ü.geord. verz. ein neuer ordner (format "mmmm") angelegt werden

ist der tag ein montag, soll im ordner des gegenwärtigen monats ein neuer ordner angelegt werden (format "dd.mm.yyyy - DD.MM.YYYY"), wobei die kleinen buchstaben den ersten tag der woche (montag), die großen den letzten tag der woche angeben (sonntag).

trifft keine der o.g. bedingungen zu, soll die erstellte datei in einen - in diesem fall ja schon - bestehenden ordner gespeichert werden. format dieses ordners ("ü.geord.verz.\mmmm\dd.mm.yyyy - DD.MM.YYYY\")

für die von euch, für die sowas ein klacks ist, hier meine variablen, mit denen ich mich im moment an der aufgabe versuche:

'Ausschnitt des Codes - Anfang

TZ = "."
'erster Tag der Woche
WBaT = Format(Datum, "dd", 2)
WBaTLong = Format(Datum, "ddd", 2)
WBaTag = WBT & TZ

'gegenwärtiger Tag der Woche
WBT = Format(Datum, "dd", 2)
WBTLong = Format(Datum, "ddd", 2)
WBTag = WBT & TZ

'letzter Tag der Woche
WBeT = Format(Datum, "dd", 2)
WBeTLong = Format(Datum, "ddd", 2)
WBeTag = WBT & TZ

Datum = Format(Date, "dd.mm.yyyy", 2)

WBM = Format(Datum, "MM", 2) & "\"
WBMLong = Format(Datum, "MMMM", 2)
WBMonat = Format(Date, "MM", 2) & TZ

WBJ = Format(Datum, "yy", 2)
WBJahr = Format(Datum, "yyyy", 2)

'Zielordner ist "dd.mm.yyyy - dd.mm.yyyy" (montag - sonntag)
strPath1 = "X:\watchman\Wachdienst\Einzelberichte\" & NName & "\" & WBMonat & "\" _
& WBTag & WBMonat & WBJahr & " - " & WBTag

'wenn montag ist, neuen wochenordner erstellen
If WBTLong = "Mon" Then
If WBT = 1 Then 'erstelle neuen monats-ordner

End If
End If

strPath2 = ActiveDocument.AttachedTemplate.Path & "\" & WBJ & WBM
strFileName = WBTag & WBMonat & WBJahr & Schicht & NName & ".doc"
lngFormat = wbFormatDocument

'Ausschnitt des Codes - Ende

vielen dank schon jetzt für alle tipps,

liebe grüße aus berlin

murphy2ooo
Computer helfen uns bei der Lösung von Problemen, die wir ohne sie gar nicht hätten

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung