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.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

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?