data e ora modifica

Hai un problema con Excel?

Nuova discussione

data e ora modifica
di Nicola (utente non iscritto) data: 24/06/2014 15:57:08
Salve a tutti
ho inserito questo codice in "ThisWorkbook" che mi crea un file in txt:
Data accesso | Ora Accesso | Nome | PC Utente | Data e Ora Salvataggio
24/06/2014 | 15:16:25 | w | Nicola Spanu | 24/06/2014 15:16:20
24/06/2014 | 15:17:43 | nicola | Nicola Spanu | 24/06/2014 15:16:47
24/06/2014 | 15:21:40 | nicola | Nicola Spanu | 24/06/2014 15:16:47
Il mio problema è che la data di accesso corrisponde alla data del salvataggio.

Io vorrei che nel momento che salvo il file del "ThisWorkbook mi inserisse nella data e ora salvataggio
il reale orario con la reale data..

No riesco a trovare la soluzione

Vi ringrazio anticipatamente per l'ennesimo aiuto

Public datOrasalva As Date
 Public strNome As String
 Public datOra As Date
 Public datData As Date
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'variabile da valorizzare
 nomepercorso = "\CLUSTERFSShareKommerzLAVORI COMMERCIALElognew.txt"
 If Dir(nomepercorso, vbNormal) = "" Then
 Open nomepercorso For Output As #1
 Print #1, "Data accesso", "|", "Ora Accesso", "|", "Nome", "|", "PC Utente", "|", "Data e Ora Salvataggio"
 Close #1
 End If
 Open nomepercorso For Append As #1
 Print #1, datData, "|", datOra, "|", strNome, "|", Application.UserName, "|", datOrasalva
 Close #1
 End Sub
 
 Sub Workbook_Open()
 Do
 strNome = InputBox("Qual'è il tuo nome?" & vbNewLine & "Digitare 'Esci' per chiudere il file.", "Registrazione utente")
 datData = Date
 datOra = Time
 datOrasalva = FileDateTime("\CLUSTERFSShareKommerzLAVORI COMMERCIALElog.txt")
 If StrConv(strNome, 1) = "ESCI" Then
 ActiveWorkbook.Save
 ActiveWindow.Close
 End If
 Loop While strNome = ""
 End Sub

di lepat (utente non iscritto) data: 24/06/2014 16:12:19
prova questa

Public datOrasalva As Date
 Public strNome As String
 Public datOra As Date
 Public datData As Date
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'variabile da valorizzare
 nomepercorso = "\CLUSTERFSShareKommerzLAVORI COMMERCIALElognew.txt"
 If Dir(nomepercorso, vbNormal) = "" Then
 Open nomepercorso For Output As #1
 Print #1, "Data accesso", "|", "Ora Accesso", "|", "Nome", "|", "PC Utente", "|", "Data e Ora Salvataggio"
 Close #1
 End If
 Open nomepercorso For Append As #1
 Print #1, datData, "|", datOra, "|", strNome, "|", Application.UserName, "|", now
 Close #1
 End Sub
 
 Sub Workbook_Open()
 Do
 strNome = InputBox("Qual'è il tuo nome?" & vbNewLine & "Digitare 'Esci' per chiudere il file.", "Registrazione utente")
 datData = Date
 datOra = Time
 If StrConv(strNome, 1) = "ESCI" Then
 ActiveWorkbook.Save
 ActiveWindow.Close
 End If
 Loop While strNome = ""
 End Sub

data e ora modifica
di Nicola (utente non iscritto) data: 24/06/2014 16:28:41
Con now avevo gia provato ....

Ma non sa riconoscere se salvo oppure no il file ...

Inserisce in pratica la data e l'ora corrente a prescindere ...

Ci vorrebbe un istruzione che capisca se salvo il file inserisci la data e l'ora nel file txt. altrimenti non inserire nulla...
di lepat (utente non iscritto) data: 24/06/2014 17:13:02
Utilizza una beforesave invece che BeforeClose
data e ora modifica
di Nicola (utente non iscritto) data: 25/06/2014 12:54:30
grazie lepat..risoltoo

Vuoi Approfondire?