Salvare con data

Hai un problema con Excel?

Nuova discussione

Salvare con data
di Compasso (utente non iscritto) data: 01/12/2010
Ciao.
vorrei sapere se esiste la possibilità, utilizzando una macro, di salvare inserendo la data corrente nel nome del file.
grazie per la collaborazione.

di Franco_44 (utente non iscritto) data: 01/12/2010
Ciao
si puoi farlo; vedi la macro sotto. devi cambiare il percorso dove vuoi venga salvato il file da così "f:file_di_officefile excel" a quello che decidi tu

Sub salva2()
'CTRL+r
'viene salvato nella cartella descritta con lo stesso nome e con la data odierna
    Nome_File_Attuale = ActiveWorkbook.Name
    Nome_file_da_Salvare = Mid(Nome_File_Attuale, 1, Len(Nome_File_Attuale) - 4) + "_" + _
        Format(Date, "dd-mm-yyyy") '+  '"_" + Format(Time, "hh-mm-ss")se si vuole salvare con data anteriore  dopo Date mettere il segno meno e il numero di giorni che si vuole anticipare
        ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Filename:="F:File_di_OfficeFile Excel" & "_" & Nome_file_da_Salvare & ".xls"
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True
    Application.Quit
End Sub

di Compasso (utente non iscritto) data: 06/12/2010
Grazie tante. tutto perfetto. scusa per il ritardo.
di Franco_44 (utente non iscritto) data: 06/12/2010
Nessun problema, grazie per il riscontro
alla prossima
ciao

Vuoi Approfondire?