Wie speichert man einen Excel-Dateinamen mit Zeitstempel?
Haben Sie jemals versucht, eine Excel-Datei mit dem aktuellen Zeitstempel zu speichern? Dieser Artikel zeigt Ihnen eine Methode, um dies zu erreichen.
Speichern eines Excel-Dateinamens mit Zeitstempel mithilfe von VBA-Code
Speichern eines Excel-Dateinamens mit Zeitstempel mithilfe von VBA-Code
Sie können den folgenden VBA-Code ausführen, um einen Excel-Dateinamen mit Zeitstempel zu speichern. Bitte gehen Sie wie folgt vor.
1. Drücken Sie in der Arbeitsmappe, die Sie mit dem aktuellen Zeitstempel benennen möchten, gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster. Siehe Screenshot:
VBA-Code: Speichern eines Excel-Dateinamens mit Zeitstempel (Ersetzen des Dateinamens durch Zeitstempel)
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. Drücken Sie die Taste F5, um den Code auszuführen. Dann erscheint ein Dialogfeld „Speichern unter“, und Sie können den Zeitstempel im Feld Dateiname sehen. Geben Sie bitte einen Speicherort für diese Datei an und klicken Sie dann auf die Schaltfläche Speichern. Siehe Screenshot:
Hinweise:
1. Die neu erstellte Excel-Datei wird direkt mit dem Namen des aktuellen Zeitstempels gespeichert.
2. Bei bereits vorhandenen Excel-Dateien wird der ursprüngliche Dateiname durch den Zeitstempel ersetzt.
Wenn Sie nur einen Zeitstempel hinter dem ursprünglichen Dateinamen hinzufügen möchten, anstatt ihn zu ersetzen, wenden Sie bitte den folgenden VBA-Code an.
VBA-Code: Speichern eines Excel-Dateinamens mit Zeitstempel (Einfügen eines Zeitstempels nach dem ursprünglichen Dateinamen)
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
Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Verwandte Artikel:
- Wie speichert man ein Arbeitsblatt als PDF-Datei und sendet es als Anhang per Outlook?
- Wie verwendet man die Funktion „Speichern unter“, um automatisch eine bestehende Datei in Excel zu überschreiben?
- Wie speichert oder exportiert man mehrere/alle Blätter in separate CSV- oder Textdateien in Excel?
- Wie deaktiviert man die Optionen „Speichern“ und „Speichern unter“ in Excel?
- Wie deaktiviert man das Speichern der Arbeitsmappe, aber erlaubt nur „Speichern unter“ in Excel?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins