Wie speichere ich einen Excel-Dateinamen mit Zeitstempel?
Haben Sie jemals versucht, eine Excel-Datei mit dem aktuellen Zeitstempel zu speichern? Dieser Artikel zeigt Ihnen die Methode, um dies zu erreichen.
Speichern Sie einen Excel-Dateinamen mit Zeitstempel und VBA-Code
Speichern Sie einen Excel-Dateinamen mit Zeitstempel und 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. In der Arbeitsmappe müssen Sie sie nach dem aktuellen Zeitstempel benennen. Drücken Sie bitte die Taste Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in die Code Fenster. Siehe Screenshot:
VBA-Code: Speichern Sie einen Excel-Dateinamen mit Zeitstempel (ersetzen Sie den Dateinamen 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 Schlüssel zum Ausführen des Codes. Dann ein Speichern unter Das Dialogfeld wird geöffnet. Der Zeitstempel wird im Feld Dateiname angezeigt. Bitte geben Sie einen Speicherort für diese Datei an und klicken Sie dann auf Speichern Taste. Siehe Screenshot:
Notizen:
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 den Zeitstempel gefolgt vom ursprünglichen Dateinamen hinzufügen möchten, anstatt ihn zu ersetzen, wenden Sie bitte den folgenden VBA-Code an.
VBA-Code: Speichern Sie einen Excel-Dateinamen mit Zeitstempel (Zeitstempel gefolgt vom ursprünglichen Dateinamen einfügen)
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
In Verbindung stehende Artikel:
- Wie speichere ich ein Arbeitsblatt als PDF-Datei und sende es als Anhang per E-Mail über Outlook?
- Wie verwende ich die Funktion Speichern unter, um vorhandene Dateien in Excel automatisch zu überschreiben?
- Wie speichere, exportiere ich mehrere / alle Blätter in separate CSV- oder Textdateien in Excel?
- Wie kann ich die Optionen Speichern und Speichern unter in Excel deaktivieren oder nicht zulassen?
- Wie deaktiviere ich das Speichern von Arbeitsmappen, erlaube aber nur das Speichern wie in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!