Hur sparar jag ett Excel-filnamn med tidsstämpel?

Har du någonsin försökt spara en Excel-fil med aktuell tidsstämpel? Den här artikeln visar metod för att uppnå det.

Spara ett Excel-filnamn med tidsstämpel med VBA-kod

Spara ett Excel-filnamn med tidsstämpel med VBA-kod

Du kan köra nedanstående VBA-kod för att spara ett Excel-filnamn med tidsstämpel. Gör så här.

1. I arbetsboken måste du namnge den efter aktuell tidsstämpel, tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

2. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Modulerna. Kopiera sedan nedanstående VBA-kod till Koda fönster. Se skärmdump:

VBA-kod: Spara ett Excel-filnamn med tidsstämpel (ersätt filnamnet med tidsstämpel)

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. tryck på F5 för att köra koden. Då en Spara som dialogrutan dyker upp, kan du se tidsstämpeln visas i rutan Filnamn. Ange en plats för att spara den här filen och klicka sedan på Save knapp. Se skärmdump:

Anmärkningar:

1. Den nya Excel-filen sparas direkt med namnet på aktuell tidsstämpel.

2. För de redan existerande Excel-filerna ersätts det ursprungliga filnamnet med tidsstämpeln.

Om du bara vill lägga till tidsstämpel följt av det ursprungliga filnamnet istället för att ersätta det, använd nedanstående VBA-kod.

VBA-kod: Spara ett Excel-filnamn med tidsstämpel (infoga tidsstämpel följt av det ursprungliga filnamnet)

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

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Relaterade artiklar:

• Hur sparar jag ett kalkylblad som PDF-fil och skickar det via e-post som en bilaga via Outlook?
• Hur använder jag Spara som-funktionen för att automatiskt skriva över befintlig fil i Excel?
• Hur sparar jag, exporterar flera / alla ark till separata csv- eller textfiler i Excel?
• Hur inaktiverar eller tillåter du inte Spara och spara som-alternativ i Excel?
• Hur inaktiverar jag arbetsbokspara men tillåter bara spara som i Excel?