opslaan als via makro ?

[stefano]

Hoi, hallo,

Ik beschik over een xls-bestand dat dagelijks vernieuwd wordt. Dit blad wordt dagelijks bijgewerkt. Kan ik dmv een makro of ... dit blad opslaan onder een andere naam ?

oorspronkelijk bestand : stock.xls
via makro behoud ik dit bestand maar sla het ook op als stock20040924.xls , 's anderendaags als stock20040925.xls, etc ...

Om het nog wat moeilijker te maken.

Stel dat in het oorspronkelijke bestand een verkeerd cijfer werd ingegeven dat later gekorrigeerd werd, dan zou de makro het kopie-bestand, bv stock20040924.xls ook moeten overschrijven.

Mogelijkheden ?

Da-ank

 

[Japsur]

Zoek even in het helpmij forum archief over dit onderwerp, hier zijn al wel wat vaker vragen over geweest.

 

[Palmpje]

Dit stukje code schrijft je bestand weg als <datum>.XLS
in de directory waarin het originele bestand staat.
Even in de help kijken om overschrijven van een bestaand bestand mogelijk te maken.

Dim MyDate, MyFile, MyPath
MyPath = ActiveWorkbook.Path
MyDate = Format(Date, "yyyymmdd")
MyFile = MyPath + "\" + MyDate + ".xls"
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

 

[stefano]

Gewoonweg schitterend ! Dank je.