Note: The other languages of the website are Google-translated. Back to English
English English

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


freccia blu freccia destra 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 > Modulo. Quindi copia il codice VBA sottostante nel file Codice 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

freccia blu freccia destraArticoli correlati:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (12)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Esiste una versione di questo che funziona per i documenti di Word?
Questo commento è stato fatto dal moderatore sul sito
Ho questo qui sotto, che funziona perfettamente per salvare il file con il timbro della data, MA non funzionerebbe se cambiassi in questo per aggiungere tempo-> nbre = Format(Ora, "aaaa-mm-gg hh:mm")


nbre = Formato(Ora, "aaaa-mm-gg")


Application.DisplayAlerts = False


ChDir "T:\Centro di distribuzione"
ActiveWorkbook.SaveAs Nome file:="T:\Distribution Center\2. BACKLOG\DC BACKLOG " + nbre + ".xlsx", FileFormat _
:=xlOpenXMLWorkbook, WriteResPassword:="****", CreateBackup:=False



Potete per favore aiutare cosa manca???....
Questo commento è stato fatto dal moderatore sul sito
Non è possibile utilizzare il carattere ":" nei nomi dei file
Questo commento è stato fatto dal moderatore sul sito
Non puoi salvare i file con : all'interno del nome del file, se lo modifichi in nbre = Format(Now, "yyyy-mm-dd hh-mm")
Questo commento è stato fatto dal moderatore sul sito
Caro Nathan,
Il codice VBA seguente può aiutare ad aggiungere il timestamp all'interno del nome del file.

Sottotest ()
Dim xWb come cartella di lavoro
Dim xStr come stringa
Dim xStrOldName come stringa
Dim xStrDate come stringa
Dim xFileName come stringa
Dim xFileDlg come FileDialog
Dim i come variante
Application.DisplayAlerts = False
Imposta xWb = ActiveWorkbook
xStrOldName = xWb.Nome
xStr = Sinistra(xStrOldName, Len(xStrOldName) - 5)
xStrDate = Formato(Ora, "aaaa-mm-gg hh-mm-ss")
Se Right(xStrOldName, 4) = "xlsm" Allora
xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Cartella di lavoro abilitata per macro di Excel (*.xlsm),*.xlsm")
Altro
xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Cartella di lavoro Excel (*.xlsx),*.xlsx")
End If
xWb.SaveAs (xNomeFile)
Application.DisplayAlerts = Vero
End Sub
Questo commento è stato fatto dal moderatore sul sito
Sarebbe possibile modificarlo per rimuovere il timestamp precedente e salvarlo come nella stessa directory?
Questo commento è stato fatto dal moderatore sul sito
Buona giornata,
Mi dispiace non poterti aiutare con quello.
Questo commento è stato fatto dal moderatore sul sito
Funziona tranne quando l'utente preme il pulsante Annulla, crea comunque un file chiamato "falso".
Questo commento è stato fatto dal moderatore sul sito
Ciao Jason,
Grazie per avermelo ricordato. I codici sono aggiornati.
Questo commento è stato fatto dal moderatore sul sito
È possibile incorporare il codice e dirgli dove salvare il file anziché selezionare individualmente il percorso di salvataggio ogni volta?
Questo commento è stato fatto dal moderatore sul sito
Per chi è coinvolto,
Provo a implicare il tuo codice "Codice VBA: salva un nome file Excel con timestamp (Inserisci timestamp nel nome del file originale)" in https://www.extendoffice.com/documents/excel/4413-excel-timestamp-filename.html. MA si ferma al nuovo nome del file con timestamp nella finestra di dialogo Salva con nome. Se voglio salvare automaticamente in modo continuo dopo la finestra di dialogo Salva come mostrata, Chiudi tutta la cartella di lavoro e chiudi l'applicazione. Quale codice VBA mi consigliate per terminare questo lavoro? Per favore aiuto.

Per favore, rispondimi a misterxyz123@gmail
Questo commento è stato fatto dal moderatore sul sito
Ciao Mr.X,
Dopo aver eseguito il codice, tutte le cartelle di lavoro aperte (tranne la cartella di lavoro attualmente in uso) vengono salvate come nuovi file con timestamp seguito dal nome del file originale, quindi chiusi automaticamente. Per favore, provalo. Grazie.
Specifica una cartella in cui salvare i file in questa riga: xPath = "C:\Utenti\Win10x64Test\Desktop\file con timestamp\"
Sub AddTimestampToFileName()
    'Updated by Extendoffice 20220826
    Dim xWb As Workbook
    Dim xStr As String
    Dim xPath As String
    Dim xStrDate As String
    Dim xFileName As String
    Application.DisplayAlerts = False
    
    
    xPath = "C:\Users\Win10x64Test\Desktop\file with timestamp\"
    xFileName = ActiveWorkbook.Name
    xStrDate = " " & Format(Now, "yyyy-mm-dd hh-mm-ss")
    For Each xWb In Workbooks
        If xWb.Name <> xFileName Then
            If Dir(xWb.FullName) <> "" Then
                xStr = Left(xWb.Name, InStrRev(xWb.Name, ".") - 1)
                xWb.SaveAs Filename:=xPath & Replace(xWb.Name, xStr, xStr & xStrDate)
            Else
                xWb.SaveAs Filename:=xPath & xWb.Name & xStrDate & ".xlsx"
            End If
        xWb.Close
        End If
    Next
    
    xStr = Left(xFileName, InStrRev(xFileName, ".") - 1)
    ActiveWorkbook.SaveAs Filename:=xPath & Replace(xFileName, xStr, xStr & xStrDate)
    Application.DisplayAlerts = True
    
End Sub
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite