Data ultima modifica in file Excel

Lord Sinclair

unread,

Aug 6, 2004, 4:08:11 AM8/6/04

to

Vorrei inserire in una cella Excel la data in cui è stata effettuata
l'ultima modifica al file medesimo. Qualcuno sa come si fa?
Grazie

Pampa

unread,

Aug 6, 2004, 5:29:33 AM8/6/04

to

Devi creare una funzione personalizzata.
Per fare ciň devi aprire Visual Basic Editor e aggiungere il riferimento
alla libreria "Microsoft Scripting Runtime". Dopo di che devi aggiungere un
modulo e inserire il seguente codice:

Function UltimaModifica(Percorso As String) As Date

Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject

UltimaModifica = FSO.GetFile(Percorso).DateLastModified

End Function

Ora puoi chiudere il modulo e in Excel posizionarti nella cella dove vuoi
inserire la funzione.
Fai "Inserisci" --> "Funzione" --> "Definite dall'utente" -->
"UltimaModifica"

Puoi specificare il percorso del file stesso direttamente nella funzione o
fare riferimento ad una cella dove hai appunto scritto il percorso stesso.

"Lord Sinclair" <attenti_a_quei_due(antispam)@hotmail.com> ha scritto nel
messaggio news:L%GQc.104565$5D1.5...@news4.tin.it...
> Vorrei inserire in una cella Excel la data in cui č stata effettuata

Lord Sinclair

unread,

Aug 6, 2004, 5:54:02 AM8/6/04

to

Confesso la mia ignoranza, ma non sono riuscito a fare quanto mi hai
indicato. Ho provato a inserire un percorso (es: c:\windows|...) ma mi da
errore. Che cosa si intende per percorso. Io voglio che una cella (es A5)
del file "Prova.xls" mi riporti la data dell'ultima modifica del file
"Prova.xls" e tale informazione deve aggiornarsi ad ogni modifica che vado
ad apportare. Word, per esempio, ha una funzione del genere...
Ciao e grazie.

Pampa

unread,

Aug 6, 2004, 6:04:11 AM8/6/04

to

Prova a scrivere per esempio:
- nella cella A4 C:\Documenti\Prova.xls
- nella cella A5 =UltimaModifica(A4)

L'errore è probabile che ti venga visualizzato in quanto tenti di indicare
il percorso del file direttamente nella formula.
ATTENZIONE Ti sei ricordato di aggiungere il riferimento alla libreria
"Microsoft Scripting Runtime"?

Spero di esserti stato di aiuto.
Ciao

"Lord Sinclair" <attenti_a_quei_due(antispam)@hotmail.com> ha scritto nel

messaggio news:_yIQc.105232$5D1.5...@news4.tin.it...

Sergio MAZZA

unread,

Aug 6, 2004, 6:18:52 AM8/6/04

to

"Lord Sinclair" <attenti_a_quei_due(antispam)@hotmail.com> ha scritto nel messaggio news:_yIQc.105232$5D1.5...@news4.tin.it...

Probabile che sbagliando il percorso non trova il file e ti presenta un errore; inserisci un test per verificare l'esistenza del
percorso+file:
es.

Function UltimaModifica(Percorso As String) As Date
Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject

If (FSO.FileExists(Percorso)) Then
UltimaModifica = FSO.GetFile(Percorso).DateLastModified
else
UltimaModifica = "Errore!!"
end if
End Function

Sarebbe anche utile indicare esattemente il messaggio di errore e l'istruzione dove si ferma l'elaborazione...

Ciao.
--
Sergio MAZZA

Lord Sinclair

unread,

Aug 6, 2004, 6:20:41 AM8/6/04

to

Stavolta ci sono riuscito. Grazie. È possibile inserire tale informazione
nell'intestazione o pie' di pagina?
Rigrazie e alla prossima.