Як зберегти ім'я файлу Excel із позначкою часу?
Ви коли-небудь пробували зберегти файл Excel із поточною позначкою часу? Ця стаття покаже вам спосіб її досягнення.
Збережіть ім'я файлу Excel із позначкою часу за допомогою коду VBA
Збережіть ім'я файлу Excel із позначкою часу за допомогою коду VBA
Ви можете запустити наведений нижче код VBA, щоб зберегти ім’я файлу Excel із позначкою часу. Будь ласка, виконайте наступне.
1. У книзі вам потрібно назвати її за поточною позначкою часу, натисніть кнопку інший + F11 клавіші одночасно, щоб відкрити Вікно Microsoft Visual Basic для програм.
2 В Microsoft Visual Basic для додатків вікно, натисніть Insert > Модулі. Потім скопіюйте наведений нижче код 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 клавіша для запуску коду. Тоді a Зберегти як спливає діалогове вікно, ви можете побачити позначку часу, що відображається у полі Ім'я файлу. Вкажіть місце для збереження цього файлу, а потім клацніть на зберегти кнопку. Дивіться знімок екрана:
примітки:
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 для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
