Как сохранить файл Excel с меткой времени в имени?
Пробовали ли вы когда-нибудь сохранить файл Excel с текущей меткой времени? В этой статье мы покажем вам, как этого добиться.
Сохранение файла Excel с меткой времени с помощью кода VBA
Сохранение файла Excel с меткой времени с помощью кода VBA
Вы можете выполнить приведённый ниже код VBA, чтобы сохранить файл Excel с меткой времени. Следуйте инструкциям.
1. В книге, которую необходимо назвать текущей меткой времени, одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите Вставка > Модуль. Затем скопируйте приведённый ниже код VBA в окно Код. См. снимок экрана:
Код 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
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи:
- Как сохранить лист в формате PDF и отправить его по электронной почте во вложении через Outlook?
- Как использовать функцию «Сохранить как», чтобы Excel автоматически перезаписывал существующий файл?
- Как сохранить или экспортировать несколько или все листы в отдельные CSV-файлы или текстовые файлы в Excel?
- Как отключить или запретить использование команд «Сохранить» и «Сохранить как» в Excel?
- Как отключить сохранение книги, разрешив только «Сохранить как» в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек