Używasz tego makra do rejestrowania historii wersji
Istnieje wiele skoroszytów, które należy zapisywać w stałych odstępach czasu. Jeśli zawsze używasz innej nazwy, możesz dokładnie śledzić, które dane zostały znalezione w skoroszycie w jakim momencie.
Szczególnie przydatne jest użycie znacznika daty i godziny podczas zapisywania pliku. Jako nazwy pliku używasz kombinacji daty i godziny. Na przykład, jeśli plik zostanie zapisany 27.08.2008 o godzinie 10:32 i 26 sekundach, nazwa pliku to:
20080827-103226
Zaletą takiego znacznika daty i czasu jest to, że wyświetlanie plików w kolejności alfabetycznej (na przykład w Eksploratorze Windows) również odpowiada kolejności chronologicznej.
Ręczne definiowanie aktualnych nazw plików jest czasochłonne i podatne na błędy. Zamiast tego użyj następującego makra:
Sub WithTimestampSave ()
Dim znacznik czasu daty As String
Przyciemnij teraz jako datę
Teraz = Teraz ()
Znacznik daty i czasu = rok (data) i format (miesiąc (data), „00”) i format (dzień (data), „00”)
Znacznik daty i czasu = Znacznik daty i czasu & "-" & Format (Godzina (Teraz), "00") & Format (Minuta (Teraz), "00") & Format (Sekunda (Teraz), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" i data stempla & ".xls")
Napis końcowy
Po wywołaniu makra aktywny skoroszyt jest ponownie zapisywany w poprzedniej ścieżce przechowywania. Znacznik daty i godziny jest używany jako nazwa pliku, jak pokazano na poniższym rysunku:
Jeśli chcesz również dołączyć to okno do swojego makra, zintegruj następującą linię programu jako osobną, nową linię przed linią Napis końcowy:
MsgBox (ActiveWorkbook.Path)
