Как сохранить имя файла Excel с отметкой времени?
Вы когда-нибудь пробовали сохранить файл Excel с текущей меткой времени? Эта статья покажет вам, как этого добиться.
Сохраните имя файла Excel с отметкой времени с кодом VBA
Сохраните имя файла Excel с отметкой времени с кодом VBA
Вы можете запустить приведенный ниже код VBA, чтобы сохранить имя файла Excel с меткой времени. Пожалуйста, сделайте следующее.
1. В книге вам нужно назвать ее по текущей метке времени, нажмите другой + F11 клавиши одновременно, чтобы открыть Окно Microsoft Visual Basic для приложений.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставить > Модули. Затем скопируйте приведенный ниже код VBA в Code окно. Смотрите скриншот:
Код VBA: сохраните имя файла Excel с меткой времени (замените имя файла меткой времени)
Sub SaveAsFilenameWithTimestamp()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xWb.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub
3. нажмите F5 ключ для запуска кода. Потом Сохранить как появится диалоговое окно, вы увидите, что метка времени отображается в поле Имя файла. Укажите место для сохранения этого файла, а затем щелкните значок Сохранить кнопка. Смотрите скриншот:
Заметки:
1. Новый созданный файл Excel будет сохранен напрямую с именем текущей метки времени.
2. Для уже существующих файлов Excel исходное имя файла будет заменено меткой времени.
Если вы хотите только добавить метку времени, за которой следует исходное имя файла, а не заменить его, примените приведенный ниже код VBA.
Код VBA: сохраните имя файла Excel с отметкой времени (вставьте отметку времени, за которой следует исходное имя файла)
Sub AddTimestampToFileName()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrOldName = xWb.Name
xStr = Left(xStrOldName, Len(xStrOldName) - 5)
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xStrOldName, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub
Статьи по теме:
- Как сохранить рабочий лист в виде файла PDF и отправить его по электронной почте в виде вложения через Outlook?
- Как использовать функцию «Сохранить как» для автоматической перезаписи существующего файла в Excel?
- Как сохранить, экспортировать несколько / все листы в отдельные CSV или текстовые файлы в Excel?
- Как отключить или запретить параметры «Сохранить и сохранить как» в Excel?
- Как отключить сохранение книги, но разрешить сохранение только как в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!