Cum se salvează un nume de fișier Excel cu marcaj de timp?
Ați încercat vreodată să salvați un fișier Excel cu marcajul temporal actual? Acest articol vă va arăta metoda de realizare.
Salvați un nume de fișier Excel cu marcaj de timp cu cod VBA
Salvați un nume de fișier Excel cu marcaj de timp cu cod VBA
Puteți rula codul VBA de mai jos pentru a salva un nume de fișier Excel cu marcaj de timp. Vă rugăm să faceți următoarele.
1. În registrul de lucru trebuie să îl denumiți după marcajul de timp actual, vă rugăm să apăsați pe Alt + F11 tastele simultan pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.
2. În Microsoft Visual Basic pentru aplicații fereastra, faceți clic pe Insera > Module. Apoi copiați codul VBA de mai jos în Cod fereastră. Vedeți captura de ecran:
Cod VBA: Salvați un nume de fișier Excel cu marcaj de timp (înlocuiți numele fișierului cu marcaj de timp)
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. apasă pe F5 tasta pentru a rula codul. Apoi o Salvare ca apare caseta de dialog, puteți vedea marcajul de timp afișat în caseta Nume fișier. Vă rugăm să specificați o locație pentru a salva acest fișier, apoi faceți clic pe Economisiți buton. Vedeți captura de ecran:
notițe:
1. Noul fișier Excel creat va fi salvat direct cu numele marcajului de timp curent.
2. Pentru acele fișiere Excel deja existente, numele fișierului original va fi înlocuit cu marca de timp.
Dacă doriți doar să adăugați marcaj temporal urmat de numele fișierului original în loc să îl înlocuiți, vă rugăm să aplicați codul VBA de mai jos.
Cod VBA: Salvați un nume de fișier Excel cu marcaj de timp (Inserați marcajul de timp, urmat de numele fișierului original)
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
Articole pe aceeași temă:
- Cum să salvați o foaie de lucru ca fișier PDF și să o trimiteți prin e-mail ca atașament prin Outlook?
- Cum se folosește funcția Salvare ca pentru a suprascrie automat fișierul existent în Excel?
- Cum se salvează, se exportă mai multe / toate foile pentru a separa fișiere CSV sau text în Excel?
- Cum se dezactivează sau nu se acceptă opțiunile Salvare și Salvare ca în Excel?
- Cum se dezactivează salvarea registrului de lucru, dar se permite doar salvarea ca în Excel?
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
