Hvordan gemmes et Excel-filnavn med tidsstempel?
Har du nogensinde prøvet at gemme en Excel-fil med det aktuelle tidsstempel? Denne artikel viser dig metode til at opnå det.
Gem et Excel-filnavn med tidsstempel med VBA-kode
Gem et Excel-filnavn med tidsstempel med VBA-kode
Du kan køre nedenstående VBA-kode for at gemme et Excel-filnavn med tidsstempel. Gør som følger.
1. I projektmappen skal du navngive den efter det aktuelle tidsstempel. Tryk på andre + F11 taster samtidigt for at åbne Vinduet Microsoft Visual Basic til applikationer.
2. i Microsoft Visual Basic til applikationer vindue, klik venligst indsatte > Moduler. Kopier derefter nedenstående VBA-kode til Kode vindue. Se skærmbillede:
VBA-kode: Gem et Excel-filnavn med tidsstempel (erstat filnavnet med tidsstempel)
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. Tryk på F5 nøgle for at køre koden. Så a Gem som dialogboksen dukker op, kan du se tidsstemplet vises i feltet Filnavn. Angiv en placering for at gemme denne fil, og klik derefter på Gem knap. Se skærmbillede:
Noter:
1. Den nyoprettede Excel-fil gemmes direkte med navnet på det aktuelle tidsstempel.
2. For de allerede eksisterende Excel-filer erstattes det originale filnavn med tidsstemplet.
Hvis du kun ønsker at tilføje tidsstempel efterfulgt af det originale filnavn i stedet for at erstatte det, skal du anvende nedenstående VBA-kode.
VBA-kode: Gem et Excel-filnavn med tidsstempel (Indsæt tidsstempel efterfulgt af det originale filnavn)
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
Relaterede artikler:
- Hvordan gemmes et regneark som PDF-fil og e-mailes som en vedhæftet fil via Outlook?
- Hvordan bruges funktionen Gem som til automatisk at overskrive eksisterende fil i Excel?
- Hvordan gemmes, eksporteres flere / alle ark for at adskille csv- eller tekstfiler i Excel?
- Hvordan deaktiveres eller tillader ikke Gem og gem som indstillinger i Excel?
- Hvordan deaktiveres projektmappebesparelse, men tillader kun gemning som i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!