Opgelost datum in cell gebruiken als filenaam bij opslaan

[Friend]

Beste forummers,

Graag zou ik de datumwaarde in een cel willen gebruiken als filenaam.
Maar dan niet b.v. di 9 jan 2024 maar als filenaam : 240109

In de bijlage een opzetje gemaakt. Maar dat loopt nog niet lekker met de code.

Hoe kan ik dat verwezenlijken?

Friend

 

[AD1957]

zo ?

wnkspecovz = Format(Range("B4"), "yymmdd")

 

[edmoor]

En vergeet die CHDIR.

 

[Friend]

Albert,

Dank voor je reactie en code

De eerste keer dat ik het opsloeg liep het prima.
Maar nu krijg ik iedere keer een foutmelding.

Bestand met de aangepaste code ook even bijgevoegd.

Wat doe ik verkeerd?

Friend

 

[edmoor]

Dit is voldoende:

Sub SaveAs_Click()
    ActiveWorkbook.SaveAs "C:\" & Format(Range("B4"), "yymmdd"), 52
End Sub

En kennelijk mag je geen bestanden aanmaken in de root van je C: schijf.

 

[Friend]

Edmoor,

Dank je wel voor je reactie (ook de eerste).
Ja ben er achter dat ik inderdaad niet bin de root van C:schijf mag aanmaken.

Hij werkt nu wel. Thanks.

Een vraagje wat betekent of doet het cijfer 52 aan het einde van de code??

Friend

 

[edmoor]

Dat geeft het type Excel bestand aan dat je wilt aanmaken.
Zie:

XlFileFormat enumeration (Excel)

Office VBA reference topic

learn.microsoft.com

 

[Friend]

Dank je wel Edmoor! Leerzaam de link.

 

[Friend]

Albert, jouw code werkte ook. Maakte zelf de fout door rechtstreeks op de root van C:schijf te willen wegschrijven.
Dat is in mijn geval niet toegestaan.
Thanks!
Friend