Вы используете этот макрос для записи истории версий
Есть много книг, которые следует сохранять через фиксированные промежутки времени. Если вы всегда используете другое имя, вы можете точно отслеживать, какие данные были найдены в книге в какой момент времени.
Особенно полезно использовать метку даты и времени при сохранении файла. В качестве имени файла вы используете комбинацию даты и времени. Например, если файл сохранен 27.08.2008 в 10:32 и 26 секунд, имя файла будет:
20080827-103226
Преимущество такой отметки даты и времени состоит в том, что отображение файлов в алфавитном порядке (например, в проводнике Windows) также соответствует хронологическому порядку.
Определение текущих имен файлов вручную занимает много времени и может привести к ошибкам. Вместо этого используйте следующий макрос:
Sub WithTimestampSave ()
Тусклая метка времени даты в виде строки
Сделать тусклым сейчас как дату
Сейчас = Сейчас ()
Отметка времени даты = Год (Дата) и Формат (Месяц (Дата), «00») и Формат (День (Дата), «00»)
Отметка даты и времени = Отметка даты и времени & "-" и формат (час (сейчас), "00") и формат (минуты (сейчас), "00") и формат (секунда (сейчас), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" и отметка даты & ".xls")
Конец подписки
Когда вы вызываете макрос, активная книга снова сохраняется в предыдущем пути хранения. Штамп даты и времени используется в качестве имени файла, как показано на следующем рисунке:
Если вы также хотите включить это окно в свой макрос, интегрируйте следующую строку программы как отдельную новую строку перед строкой Конец подписки:
MsgBox (ActiveWorkbook.Path)
