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 de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!
