Data ultima modifica di un file Excel

[idraulico]

Qualcuno di voi sa come inserire in una cella di un foglio Excel la data dell'ultima modifica del file?
Grazie!

[Anthony47]

Ciao idraulico,
non mi viene in mente una funzione che restituisce subito il valore che cerchi, quindi la devi prima definire:
-da excel apri il vba con Alt-F11
-fai Inserisci /Modulo
-copi il seguente codice e lo incolli nel frame vuoto di destra:

Codice: Seleziona tutto

Function ShowFI(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = f.DateLastModified
'    MsgBox s, 0, "Informazioni sul Salvataggio"
    ShowFI = s
End Function

(vedi help on line di vba, alla voce Proprietà DateLastModified)

-torni a excel e in una cella calcoli il nome del file (deve essere gia’ stato salvato) con la formula

Codice: Seleziona tutto

=SOSTITUISCI(SINISTRA(CELLA("filename");TROVA("]";CELLA("filename"))-1);"[";"")

-in altra cella calcoli data e ora di salvataggio con la formula

Codice: Seleziona tutto

=ShowFI(J1)

(sostituisci J1 con la vera cella in cui hai calcolato il nome file).

Ciao.