Funzione Excel

[Gabibbo]

Esiste una funziona in Excel che dia la data di ultima modifica di un file??

[Sergio1983]

Non ho Excel sottomano (uso OpenOffice), però credo che nelle Proprietà del file (raggiungibili cliccando con il tasto destro del mouse sul file stesso) tu possa trovare ciò che cerchi (ma non garantisco nulla...). Di sicuro trovi la data di ultima modifica inserita dal File System, ma non so se ti basta, potrebbe essere alterata, per esempio, in caso di masterizzazione del file.

[ezechiel2517]

come ha detto sergio la data dell'ultima modifica la trovi tra le preoprieta' del file.
Ma se ti interessa come variabile in un foglio di excel, allora diventa noioso andare in proprieta' e copiarsi il valore ogni volta!!
Che io sappia non esiste una funzione, te la devi creare (ma sono giusto 5 righine di codice)! Se ti interessa te la posto

[Gabibbo]

Ciao Ezechiel.

ti spiego il problema: dovrei aprire il file excel.
Stampare il file excel con la data di ultima modifica del file.
E' fattibile???

Grazie a entrambi.
Se puoi scrivirmi il codice.

[ezechiel2517]

ahiahiahi!!!
il problema e' l'apertura!!!
si potrebbe usare la funzione VBA DateLastModified, ma quei genialoidi di Redmond hanno pensato bene di far si che quando apri un file, il risultato di questa funzione e'.....il momento in cui lo hai aperto!
Non so se si sono ravveduti con OfficeXP!
comunque ci sono dei barbatrucchi per ovviare!

[Gabibbo]

Ciao Ezechiel...

hai detto bene!!! avevo già provato ad usare la funzione DateLastModified ma dà il risultato descritto da te.

Io attualmente ho questa soluzione usando delle MACRO.
Apro un files ( chiamamolo STAMPA ) all'interno del quale c'è un tasto "Apri Files".
Premendo questo bottone vado ad aprire il file di cui mi interessa sapere la data d'ultima modifica.
In questo modo memorizzo la data di ultima modifica nel file STAMPA.
Premendo CTRL+i trasferisco la data da STAMPA al file che devo stampare con questa data.

Ti dico che conosco appena visual basic e ho fatto tutto con "registrazione macro".
Se hai qualche soluzione più sbrigativa perchè questa mi sembra un po laboriosa.
Grazie per aiutarmi

[ezechiel2517]

La soluzione + semplice e' memorizzare in una celletta la data dell'ultimo salvataggio. Cosi che quando poi vuoi stampare il file devi solo andare a riprendertela!
Se ti va di smanettare da solo ti do giusto qualche dritta...se non ti va ti posto le poche righe di codice necessarie.

dritte:
devi usare l'evento: before save
e la funzione: adesso

[Gabibbo]

meglio che mi dai qualche dritta...come ti avevo detto ne so poco di visual basic.

Attendo news

[ezechiel2517]

le dritte te le ho gia date nel messaggio di prima

e qui di seguito ti metto la soluzione:
apri il file
alt+F11 (si apre VBA)
vai su questoworkbook
nella prima lista seleziona workbook (in automatico lui ti aggiunge le righe di codice per l'evento open...le puoi benissimo cancellare!)
clicca sulla lista degli eventi e seleziona "BeforeSave"
lui ti aggiunge 2 righe di codice (l'inizio e la fine della routine)
all'interno metti

Codice: Seleziona tutto

Worksheets("pluto").[aa122].Value = "Data ultima modifica"
Worksheets("pluto").[aa123].Formula = now()

[Gabibbo]

Ciao Ezechiel..grazie per le risposte.

Io dovrei applicare questo codice per ogni file excel che dovrei aprire.

Se mi sbaglio fermami subito ma il codice da te scritto lo posso applicare per un singolo file.

Il punto è che dovrebbe essere applicata in automatico per tutti i file che vado ad aprire e che poi dovrei stampare.

Non so se mi spiego...

[ezechiel2517]

Si, va applicato su ogni file!!

un piccolo appunto:
cambia il codice della seconda riga

Codice: Seleziona tutto

Worksheets("pluto").[aa123].Formula = now()

con

Codice: Seleziona tutto

Worksheets("pluto").[aa123].Value = now

con la funzione now() il valore della cella si aggiorna ogni volta che excel ricalcola il foglio!!!

[Gabibbo]

Ciao Ezechiel

se fosse solo per me lo farei ma il punto è che devo portare questa soluzione ad alcuni utenti che non sanno niente di pc.
Non penso che questi si mettano per ogni file a premere Alt F11 e inserire queste righe di codice.

Grazie Ezachiel

[ezechiel2517]

azz...il problema si fa + complicato!
la soluzione richiede parecchio smanettamento!
tu non riesci a modificare i file di persona?

[Gabibbo]

purtroppo è così....

è complicato!!

va bene lo stesso.

Grazie x il tempo dedicatomi

[Gabibbo]

Ezechiel ..

dovrei fare una cosa del genere:

Tramite macro,aprire un file e vedere se è excel o word.
C'è qualche funzione a riguardo??

Es:
FileAperto = Application.GetOpenFilename()
If FileAperto <> False Then

DATA_MODIFICA
If FileAperto = ("*.doc ") Then

[ezechiel2517]

problema 1)
il problema e' abbastanza irresolvibile. c'e' una soluzione (anche + di una) ma in generale si riassumono in:
a) fai tu tutti i cambiamenti nei file
b) chiedi ai colleghi di fare alcuni cambiamenti
ci sarebbe anche la soluzione
c) creazione di un add-in. lo invii a chi ti interessa, questi lo installano e fa tutto lui
ma io non l'ho mai fatto...so solo un po di teoria e quindi dovrei smanettare davvero parecchio!

Problema 2)
che ci devi fare con i file? se si trata solo di operazioni DOS (spostare, cancellare, rinominare) forse ti conviene fare un file batch.

[Gabibbo]

ciao ezechiel

ti ho mandato un messaggio!!
se puoi leggerlo per cortesia.

Grazie

[ezechiel2517]

DOMANDA 1 : si può usare STAMPA.XLS per gestire sia file WORD e EXCEL? Oppure devo creare un file WORD che apre solo file word

Si, e' possibile
esistono 2 metodi
1) usi il comendo shell (apre word e apre il file che vuoi)

Codice: Seleziona tutto

 RetVal = Shell("C:\path_to_word\winword.exe, c:\path_to_file\filename.doc", 1)

2)usi un codice simile a quello che hai scritto per i file di excel ma usi word come applicazione

Codice: Seleziona tutto

Dim appWd As Word.Application
' questo crea una nuova applicazione e la setta come word
Set appWd = CreateObject("Word.Application")
'apre il file specificato con word
appWd.Documents.Open ("d:\My Documents\GREG\Work files\test.doc")
appWd.Visible = True
ActiveDocument.PrintOut  ' esempio se le vuoi stampare
ActiveDocument.Close  'chiude il documento
appWd.Quit   'chiude word

chiaramente puoi cambiare i valori per la stampa come gia fai per i file excel.

DOMANDA2: come si fa a fare il controllo per verificare se FILEAPERTO è excel o word.

io credo che potresti usare il template che gia hai fatto. in una casella ci metti W per word o E per excel e in base a questo valore esegui la macro per i file doc o xls.

HTH