Come si fa a salvare un file Excel con un timestamp nel nome?
Hai mai provato a salvare un file Excel con il timestamp corrente? In questo articolo ti sveliamo un metodo semplice ed efficace per farlo.
Salvare un file Excel con timestamp nel nome utilizzando codice VBA
Salvare un file Excel con timestamp nel nome utilizzando codice VBA
Puoi eseguire il seguente codice VBA per salvare un file Excel con un timestamp nel nome. Segui attentamente le istruzioni riportate di seguito.
1. Nella cartella di lavoro che desideri rinominare con il timestamp corrente, premi contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi, copia il seguente codice VBA nella finestra del Codice. Vedi screenshot:
Codice VBA: salva un file Excel con timestamp (sostituisce il nome del file con il 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 tasto F5 per eseguire il codice. Si aprirà una finestra di dialogo Salva con nome, in cui vedrai il timestamp già inserito nella casella Nome file. Scegli la posizione in cui salvare il file, quindi fai clic sul pulsante Salva. Vedi screenshot:
Note:
1. Il nuovo file Excel verrà salvato automaticamente con il nome corrispondente al timestamp attuale.
2. Per i file Excel già esistenti, il nome originale verrà sostituito con un timestamp.
Se desideri semplicemente aggiungere il timestamp al nome originale del file invece di sostituirlo, utilizza il seguente codice VBA.
Codice VBA: salva un file Excel con timestamp (inserisce il timestamp dopo il nome originale del file)
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
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Articoli correlati:
- Come si fa a salvare un foglio di lavoro come file PDF e inviarlo come allegato tramite Outlook?
- Come si può utilizzare la funzione «Salva con nome» in Excel per sovrascrivere automaticamente un file esistente?
- Come salvare ed esportare più fogli o tutti i fogli di Excel in singoli file CSV o file di testo?
- Come disabilitare o impedire l'utilizzo delle opzioni «Salva» e «Salva con nome» in Excel?
- Come disabilitare il salvataggio della cartella di lavoro consentendo soltanto l'opzione Salva con nome in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi