Как да запазя име на файл в Excel с клеймо за време?
Опитвали ли сте някога да запазите Excel файл с текущо времево клеймо? Тази статия ще ви покаже как да го постигнете.
Запазете име на файл в Excel с клеймо за време и VBA код
Запазете име на файл в Excel с клеймо за време и VBA код
Можете да изпълните кода на VBA по-долу, за да запазите име на файл в Excel с клеймо за време. Моля, направете следното.
1. В работната книга трябва да я наименувате с текущо времево клеймо, моля, натиснете Друг + F11 клавиши едновременно, за да отворите Прозорец на Microsoft Visual Basic за приложения.
2. В Microsoft Visual Basic за приложения прозорец, моля щракнете Поставете > Модули. След това копирайте долния 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 ключ за изпълнение на кода. Тогава Save As се появи диалогов прозорец, можете да видите клеймото за време, което се показва в полето Име на файл. Моля, посочете местоположение за запазване на този файл и след това щракнете върху Save бутон. Вижте екранна снимка:
бележки:
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?
- Как да деактивирате или да не разрешите опциите Save & Save As в Excel?
- Как да деактивирам запазването на работна книга, но да разреша запазване само като в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!