Datum bij opslaan

[uters]

Ik heb een macro (via een batch) lopen waarbij er een bestand geopend wordt daarna bewerkt wordt en het 'nieuwe' bestand weer opslaat. Nu wil ik in de bestandsnaam de datum van vandaag plaatsen. Wie kan mij vertellen hoe ik dit kan doen?

Groet,
Ruud

 

[Prime]

Voeg dit onderaan je .bat toe

rename filename.ext "new_filename_ %Dy%%Mth%%Yr%.ext"

 

[uters]

Reactie

Dank voor je reactie,

Ik weet dat ik het via de "buitenkant" kan aanpassen, maar wil dit in mijn Excel Macro krijgen.

 

[Wigi]

Geef die macro dan kan men eens zien.

 

[Brandts]

Om de huidige datum in een macro te krijgen kun je de volgende code gebruiken:

Datum = CDate(FormatDateTime(Now, vbShortDate))

Voeg dit toe aan de naam van je bestand voor het gewenste resultaat.

 

[uters]

Opgelost

Ik heb de oplossing ondertussen gevonden. Na lang zoeken heb ik de onderstaande oplossing bedacht:

Dim Datum$, Bestandnaam$
Application.DisplayAlerts = False

' Save file name and path into a variable
template_file = ActiveWorkbook.FullName
Datum$ = VBA.Strings.Format(Now, "ddmmyyyy")

Bestandnaam$ = "\\Djer\user\kassa\trans\tijden\Beschikbaar" + Datum$ + ".xls"
ActiveWorkbook.SaveAs Filename:=Bestandnaam$

Dank voor jullie reacties

 

[Wigi]

template_file wordt volgens mij niet gebruikt in de code.