Ви використовуєте цей макрос для запису історії версій
Існує багато робочих книг, які слід зберігати через певні проміжки часу. Якщо ви завжди використовуєте інше ім’я, то можете точно відстежувати, які дані були знайдені у книзі на який момент часу.
Особливо корисно використовувати мітку дати та часу під час збереження файлу. В якості назви файлу використовується комбінація дати та часу. Наприклад, якщо файл збережено 27.08.2008 о 10:32 та 26 секундах, ім’я файлу таке:
20080827-103226
Перевагою такої позначки дати та часу є те, що відображення файлів в алфавітному порядку (наприклад, за допомогою Провідника Windows) також відповідає хронологічному порядку.
Визначення поточних імен файлів вручну займає багато часу і схильне до помилок. Замість цього використовуйте такий макрос:
Sub WithTimestampSave ()
Затемнити мітку дати як рядок
Затемнити зараз як дату
Зараз = Зараз ()
Штамп дати = рік (дата) та формат (місяць (дата), "00") та формат (день (дата), "00")
Штамп дати = мітка дати & "-" & Формат (Година (зараз), "00") & Формат (хвилина (зараз), "00") & Формат (другий (Зараз), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & штамп дати & ".xls")
End Sub
Коли ви викликаєте макрос, активна книга знову зберігається у попередньому шляху зберігання. Як ім’я файлу використовується штамп дати та часу, як показано на наступному малюнку:
Якщо ви також хочете включити це вікно у свій макрос, інтегруйте наступний рядок програми як окремий новий рядок перед рядком End Sub:
MsgBox (ActiveWorkbook.Path)