Excel VBA – добавление даты и времени в имя файла в формате FILENAME_MMDDYY_HHMMSS

Вопрос или проблема

Sub MakeBackupFile()
Rem Сохранить резервную копию (если возможно)
    Dim strPath
    Dim strFilename

On Error GoTo ErrorHandler
    strPath = Application.ActiveWorkbook.Path
    If strPath Like "http*" Then Exit Sub   ' Сохранение копии не работает в SharePoint
    strPath = strPath & "\Backups\"
    If Dir(strPath, vbDirectory) = "" Then MkDir strPath
    If Dir(strPath, vbDirectory) = "" Then Exit Sub ' Не удается создать подпапку Backups
    strFilename = Replace(ThisWorkbook.Name, ".", "_" & Format(Date, "YYYYMMDD") & "_" & Format(Time, "hhmmss") & ".")

    ThisWorkbook.SaveCopyAs strPath & strFilename
Exit Sub

ErrorHandler:
'    MsgBox "Убедитесь, что в папке, содержащей этот файл, есть подпапка с именем 'Backups'."
End Sub

Ответ или решение

Для решения вашей задачи с добавлением даты и времени в имя файла в формате FILENAME_MMDDYY_HHMMSS в Excel VBA, необходимо создать макрос, который будет генерировать строку с временной меткой и использовать её при сохранении файла. Ниже приведен детальный пример кода, который поможет вам реализовать это решение.

Шаги для создания макроса

1. Открытие редактора VBA:
   В Excel перейдите во вкладку "Разработчик" (Developer), затем нажмите "Visual Basic" для открытия редактора VBA. Если вкладка "Разработчик" не отображается, активируйте её через "Настройки ленты".

2. Создание нового модуля:
   В редакторе VBA, щелкните правой кнопкой мыши на любой элемент в "Project Explorer", выберите "Insert" и затем "Module". Это создаст новый модуль для вашего кода.

3. Добавление кода:
   Скопируйте и вставьте следующий код в созданный модуль. Этот код создаст функцию, которая добавляет дату и время в ваше имя файла при сохранении.

Sub SaveFileWithTimestamp()
    Dim strPath As String
    Dim strFilename As String
    Dim FILESTAMP As String

    ' Получение текущей даты и времени
    FILESTAMP = Format(Now, "MMDDYY_HHMMSS")

    ' Определение пути к текущему файлу
    strPath = ThisWorkbook.Path

    ' Убедитесь, что пакет не находится в SharePoint или другой защищенной директории
    If strPath Like "http*" Then
        MsgBox "Файл не может быть сохранен в SharePoint."
        Exit Sub
    End If

    ' Генерация имени файла с временной меткой
    strFilename = "FILENAME_" & FILESTAMP & ".xls"

    ' Сохранение файла
    ThisWorkbook.SaveAs strPath & "\" & strFilename, FileFormat:=xlWorkbookDefault

    MsgBox "Файл успешно сохранен как: " & strFilename
End Sub

Объяснение кода

1. Получение даты и времени:
   Функция Format(Now, "MMDDYY_HHMMSS") используется для форматирования текущей даты и времени в нужный формат. Это позволяет избежать проблем с записями, которые могут возникнуть из-за перезаписи файлов.

2. Определение пути к файлу:
   Используется ThisWorkbook.Path для получения директории, в которой находится текущая книга Excel. Код проверяет, находится ли файл в SharePoint или в другом недоступном месте.

3. Генерация имени файла:
   Имя файла формируется путём объединения строки "FILENAME_", временной метки и расширения .xls.

4. Сохранение файла:
   Метод ThisWorkbook.SaveAs сохраняет файл с новым именем. Формат файла задается FileFormat:=xlWorkbookDefault, что сохраняет файл в формате Excel по умолчанию.

5. Сообщение об успешном сохранении:
   После успешного сохранения, всплывающее сообщение информирует пользователя о том, что файл был успешно сохранен с временной меткой.

Заключение

Теперь вы можете использовать созданный макрос для надежного сохранения ваших файлов без риска их перезаписи. Не забудьте рисовать резервные копии ваших данных и тестировать макрос в безопасной рабочей среде перед использованием его в производственных файлах. Этот метод значительно снизит вероятность случайной потери информации и поможет вам эффективно управлять файлами.