Opgelost vba voor het maken van een map

[Senso]

Kun je via Excel vba een map maken bijvoorbeeld: 2024_aug_wk_34 (gebaseerd op huidige datum)?

 

[edmoor]

Zeker:

MkDir Year(Date) & "_" & Format(Date, "mmm") & "_wk_" & WorksheetFunction.WeekNum(Date, 21)

 

[Senso]

Krijg een Compileerfout: Ongeldige buiten procedure
Excel H&S 2007

Kan het ook via een batch file? Mogelijk makkelijker?

 

[HSV]

Excel 2007 kent de 21 niet in de weeknummer formule.

Year(Date) & "_" & Format(Date, "mmm") & "_wk_" & datepart("ww", date, 2, 2)

 

[edmoor]

En je moet die regel uiteraard wel in een Sub of Function plaatsen.

 

[Senso]

Bedankt voor de hulp.
Mogelijk kan iemand een document plaatsen waarin dit op de juiste wijze verwerkt is, anders wordt het 2028 dat het lukt. Weet ook niet wat de trigger is? Openen document?

 

[AHulpje]

Leg eens uit wat precies je bedoeling is en op welke schijf / in welke map deze map moet worden aangemaakt.

 

[edmoor]

Voorbeeldje met een knop.
De map wordt gemaakt op je bureaublad:

 

[Senso]

Bedankt. Is gelukt. Het is alleen een map ter herinnering aan de huidige maand en week voor de map waarin de uit te voeren taken staan.

MkDir "E:\INDEX\Mijn Boekhouding\Mijn Taken, Werk,\" & Year(Date) & "_" & Format(Date, "mmm") & "_wk_" & DatePart("ww", Date, 2, 2)

 

[snb]

Vermijd spaties en niet-alfanumerieke tekens in pad- en bestandsnamen (met uitzondering van de underscore):

MsgBox "E:\INDEX\Mijn_Boekhouding\Mijn_Taken_Werk\" & Format(Date, "yyyy_mmm_\wk_") & DatePart("ww", Date, 2, 2)