Deepak pyta:
Cześć, próbuję przypisać bieżącą datę do komórki A38 za pomocą,
=NOW()
a następnie wykonać SaveAs, przypisując zawartość tej komórki jako nazwę pliku dla zapisywanego pliku. Nie jestem w stanie napisać poprawnego kodu.ChDir "C:Backup" ActiveWorkbook.SaveAs Filename: = Range("A38").Text, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
W powyższym kodzie wszystko, co muszę zrobić, to zamienić nazwę pliku na zawartość komórki A38, która zawsze będzie zawierała aktualną datę. Byłbym wdzięczny, gdybyś poinformował mnie o prawidłowym sposobie napisania tego kodu. Próbowałem zastąpić Filename kilkoma rzeczami dotyczącymi tip025 w witrynie www.mrexcel.com w programie, ale to nie zadziałało.
Problem pojawia się, gdy format daty zawiera znak „/”… spróbuj wykonać następujące czynności:
ActiveWorkbook.SaveAs Application.Substitute(Range(“A38”).Text,”/”,”-“)