Export in Variable Ordner
22.06.2020 18:01:56
Kevin
ich habe bisher mit dem Makro Rekorder folgendes aufgenommen und ein bisschen daran rumgebastelt:
Sub Test()
' Test Makro
If MsgBox("Auswertung des Vormonats?", vbYesNoCancel, "PDF Exportieren?") = vbYes Then
Sheets("Test").Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
ChDir "X:\Ordner"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"X:\Ordner\Name " & Format(DateSerial(Year(Date), Month(Date), 0), "MM YYYY"), Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End If
End Sub
Die Ordnerstruktur sähe wie folgt aus:
Ordner
- Unterordner Januar 2020
- Unterordner Februar 2020
usw.
Die Makro soll automatisch erkennen, welcher Monat gerade ist, und das Dokument in den richtigen Ordner packen. Ist so etwas möglich? Meine VBA-Kenntnisse erschöpfen sich dort leider.
Danke und Grüße
Kevin
Anzeige