Come salvare un nome file Excel con timestamp?
Hai mai provato a salvare un file Excel con il timestamp corrente? Questo articolo ti mostrerà il metodo per ottenerlo.
Salva un nome file Excel con timestamp con codice VBA
Salva un nome file Excel con timestamp con codice VBA
È possibile eseguire il codice VBA seguente per salvare un nome file Excel con timestamp. Si prega di fare quanto segue.
1. Nella cartella di lavoro è necessario assegnargli un nome in base al timestamp corrente, premere il tasto altro + F11 tasti contemporaneamente per aprire il file Finestra di Microsoft Visual Basic, Applications Edition.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia il codice VBA sottostante nel file Code finestra. Vedi screenshot:
Codice VBA: salva un nome file Excel con timestamp (sostituisci il nome del file con timestamp)
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. premi il F5 chiave per eseguire il codice. Poi un Salva con nome viene visualizzata la finestra di dialogo, è possibile vedere il timestamp visualizzato nella casella Nome file. Specificare una posizione in cui salvare questo file, quindi fare clic su Risparmi pulsante. Vedi screenshot:
Note:
1. Il nuovo file Excel creato verrà salvato direttamente con il nome del timestamp corrente.
2. Per i file Excel già esistenti, il nome del file originale verrà sostituito con il timestamp.
Se desideri solo aggiungere il timestamp seguito dal nome del file originale invece di sostituirlo, applica il codice VBA sottostante.
Codice VBA: salva un nome file Excel con timestamp (inserisci timestamp seguito dal nome del file originale)
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
Articoli correlati:
- Come salvare un foglio di lavoro come file PDF e inviarlo tramite posta elettronica come allegato tramite Outlook?
- Come utilizzare la funzione Salva con nome per sovrascrivere automaticamente il file esistente in Excel?
- Come salvare, esportare più / tutti i fogli in file CSV o di testo separati in Excel?
- Come disabilitare o non consentire le opzioni Salva e Salva con nome in Excel?
- Come disabilitare il salvataggio della cartella di lavoro ma consentire solo il salvataggio come in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
