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?