Hoe een Excel-bestandsnaam met tijdstempel opslaan?
Heb je ooit geprobeerd een Excel-bestand op te slaan met het huidige tijdstempel? Dit artikel laat je de methode zien om dit te bereiken.
Sla een Excel-bestandsnaam op met tijdstempel met VBA-code
Sla een Excel-bestandsnaam op met tijdstempel met VBA-code
U kunt de onderstaande VBA-code uitvoeren om een Excel-bestandsnaam met tijdstempel op te slaan. Ga als volgt te werk.
1. In de werkmap moet u deze een naam geven met de huidige tijdstempel, druk op de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic for Applications-venster.
2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het Code venster. Zie screenshot:
VBA-code: sla een Excel-bestandsnaam op met tijdstempel (vervang de bestandsnaam door tijdstempel)
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. druk de F5 sleutel om de code uit te voeren. Dan een Opslaan als dialoogvenster verschijnt, kunt u het tijdstempel zien in het vak Bestandsnaam. Geef een locatie op om dit bestand op te slaan en klik vervolgens op het Bespaar knop. Zie screenshot:
Opmerkingen:
1. Het nieuw gemaakte Excel-bestand wordt direct opgeslagen met de naam van het huidige tijdstempel.
2. Voor reeds bestaande Excel-bestanden wordt de oorspronkelijke bestandsnaam vervangen door het tijdstempel.
Als u alleen een tijdstempel wilt toevoegen gevolgd door de oorspronkelijke bestandsnaam in plaats van deze te vervangen, past u de onderstaande VBA-code toe.
VBA-code: sla een Excel-bestandsnaam op met tijdstempel (voeg tijdstempel in gevolgd door de originele bestandsnaam)
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
Gerelateerde artikelen:
- Hoe een werkblad als pdf-bestand opslaan en als bijlage via Outlook e-mailen?
- Hoe gebruik je de functie Opslaan als om automatisch een bestaand bestand in Excel te overschrijven?
- Hoe kan ik meerdere / alle bladen opslaan, exporteren naar aparte csv- of tekstbestanden in Excel?
- Hoe de opties Opslaan en opslaan als in Excel uit te schakelen of niet toe te staan?
- Hoe werkmap opslaan uit te schakelen, maar alleen opslaan zoals in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!