Potrzebuję kody VBA, który umożliwi mi zapisanie pliku jako nowego pod wskazaną lokalizacją (lokalizacja umieszczona jest na serwerze), plik zostanie zapisany w formacie obsługującym makra, a jego nazwa to Raport + [bierząca data].
Jeżeli to ma być faktycznie nazwa Raport [data].xlsm, to wystarczy jedna linijka:
ThisWorkbook.SaveAs "\\sciezka\dostepu\Raport " & Format(Date, "\[yyyy-mm-dd\]")
Jeśli chcesz jednak zachować oryginalną nazwę pliku i do niej dodać datę, sprawdź takie makro:
Sub zapisz() Dim serwer As String, nazwa As String, rozszerzenie As String, plik As String serwer = "\\sciezka\dostepu\" nazwa = ThisWorkbook.Name rozszerzenie = Mid(nazwa, InStrRev(nazwa, ".")) plik = serwer & Replace(nazwa, rozszerzenie, Format(Date, " \[yyyy-mm-dd\]") & rozszerzenie) ThisWorkbook.SaveAs plik End Sub
