count time
Thanks Tom for help!
Regards
Mark
-----Original Message-----
in the ThisWorkbook module
at the top declare a public variable
Public StartTime as Date
then put the code
Private Sub Workbook_Open()
StartTime = Now
Open ThisWorkbook.Path & "\file.txt" For Append As #1
Print #1, StartTime, Application.UserName, _
Application.ActiveWorkbook.Name
Close #1
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Open ThisWorkbook.Path & "\file.txt" For Append As #1
Print #1, Now - StartTime, Application.UserName, _
Application.ActiveWorkbook.Name, "Close"
Close #1
End Sub
Untested, but this should get you close.
--
Regards,
Tom Ogilvy
"Mark" wrote in message
...
Hi Tom!
As would you see complete code?
"Now" return system data and time how count total usage
time (e.g. in minutes)?
Best regards
Mark
-----Original Message-----
Put it in the workbook_before close event. Unless you
store the opening
time somewhere, I believe you would need to read the
time
from the file you
wrote with your existing code, then subtract it
from "now".
--
Regards,
Tom Ogilvy
"Mark" wrote in message
...
I looking for VBA code produce: write to file.txt
working
life workbook by user.
I have only code with open file time:
Open ThisWorkbook.Path & "\file.txt" For Append As #1
Print #1, Now, Application.UserName,
Application.ActiveWorkbook.Name
Close #1
How and where i write variable and remain code to
show
total time usage by one user?
Regards
Mark
.
.
|