Deepak azt kérdezi:
Helló, megpróbálom az aktuális dátumot hozzárendelni egy A38 cellához
=NOW()
, majd a SaveAs műveletet végrehajtani úgy, hogy a cella tartalmát hozzárendeljük a mentendő fájl fájlnevéhez. Nem tudom megírni a megfelelő kódot hozzá.ChDir "C:Backup" ActiveWorkbook.SaveAs Filename: = Range("A38").Text, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
A fent említett kódban csak annyit kell tennem, hogy kicserélem a fájlnevet egy A38 cella tartalmára, amely mindig tartalmazza az aktuális dátumot. Nagyra értékelném, ha kérem, tudassa velem a kód megírásának helyes módját. Megpróbáltam a Filename-et néhány dologgal lecserélni a www.mrexcel.com webhelyen található tip025-re, de nem működött.
A probléma akkor merül fel, amikor a dátum formátuma tartalmazza a „/” karaktert … próbálja meg a következőket:
ActiveWorkbook.SaveAs Application.Substitute(Range(“A38”).Text,”/”,”-“)