Utilizzi questa macro per registrare una cronologia delle versioni
Ci sono molte cartelle di lavoro che dovrebbero essere salvate a intervalli fissi. Se usi sempre un nome diverso, puoi seguire esattamente quali dati sono stati trovati nella cartella di lavoro in quale momento.
È particolarmente utile utilizzare un indicatore di data e ora durante il salvataggio del file. Si utilizza una combinazione di data e ora come nome del file. Ad esempio, se il file viene salvato il 27/08/2008 alle 10:32 e 26 secondi, il nome del file è:
20080827-103226
Il vantaggio di un tale indicatore di data e ora è che la visualizzazione dei file in ordine alfabetico (ad esempio con Windows Explorer) corrisponde anche all'ordine cronologico.
La definizione manuale dei nomi dei file correnti richiede tempo ed è soggetta a errori. Utilizzare invece la seguente macro:
Sub WithTimestampSave ()
Dim data timestamp As String
Dim ora come data
Adesso = Adesso ()
Data e ora = anno (data) e formato (mese (data), "00") e formato (giorno (data), "00")
Data Ora = Data Ora & "-" & Formato (Ora (Ora), "00") & Formato (Minuti (Ora), "00") & Formato (Secondo (Ora), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & data & ".xls")
Fine sottotitolo
Quando si chiama la macro, la cartella di lavoro attiva viene salvata nuovamente nel percorso di archiviazione precedente. L'indicatore di data e ora viene utilizzato come nome del file, come mostrato nella figura seguente:
Se vuoi includere anche questa finestra nella tua macro, integra la seguente riga di programma come una nuova riga separata davanti alla riga Fine sottotitolo:
MsgBox (ActiveWorkbook.Path)