Hoe slaat u een Excel-bestand op met een tijdstempel in de bestandsnaam?
Hebt u ooit geprobeerd een Excel-bestand op te slaan met het huidige tijdstempel? In dit artikel leert u een eenvoudige methode om dat voor elkaar te krijgen.
Sla een Excel-bestandsnaam op met tijdstempel met VBA-code
Sla een Excel-bestandsnaam op met tijdstempel met VBA-code
Voer de onderstaande VBA-code uit om een Excel-bestand op te slaan met een tijdstempel — volg hiervoor deze eenvoudige stappen.
1. Druk in de werkmap die u wilt hernoemen met het huidige tijdstempel tegelijkertijd op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het Code-venster. Zie de schermafbeelding:
VBA-code: Sla een Excel-bestandsnaam op met tijdstempel (vervang de bestandsnaam door het 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 op de toets F5 om de code uit te voeren. Vervolgens verschijnt het dialoogvenster Opslaan als, waarin u het tijdstempel ziet in het veld Bestandsnaam. Kies een locatie om het bestand op te slaan en klik daarna op de knop Opslaan. Zie de schermafbeelding:
Opmerkingen:
1. Het nieuw gemaakte Excel-bestand wordt direct opgeslagen onder de naam van het huidige tijdstempel.
2. Voor bestaande Excel-bestanden wordt de oorspronkelijke bestandsnaam vervangen door een tijdstempel.
Als u het tijdstempel liever achter de oorspronkelijke bestandsnaam wilt toevoegen in plaats van deze te vervangen, gebruikt u de onderstaande VBA-code.
VBA-code: Sla een Excel-bestandsnaam op met tijdstempel (voeg het tijdstempel toe na de oorspronkelijke 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
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- Hoe slaat u een werkblad op als PDF-bestand en e-mailt u het vervolgens als bijlage via Outlook?
- Hoe gebruikt u de functie ‘Opslaan als’ in Excel om automatisch een bestaand bestand te overschrijven?
- Hoe kunt u meerdere of alle werkbladen opslaan of exporteren naar afzonderlijke CSV- of tekstbestanden in Excel?
- Hoe schakelt u de opties Opslaan en Opslaan als uit of voorkomt u dat ze worden gebruikt in Excel?
- Hoe schakelt u opslaan van de werkmap uit, maar staat u alleen Opslaan als toe in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins