count time

  • Thread starter Thread starter Mark
  • Start date Start date
M

Mark

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
 
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".
 
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
 
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.
 
Mark,

Total minutes

totalMins = (Now - Date)*1440

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Why not just stick the open file and write time in workbooks auto_open sub and the close time in the auto_close sub?

Mark
 
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





.
Click to expand...
 
THanks Bob for your reply about minutes subject.
-----Original Message-----
Mark,

Total minutes

totalMins = (Now - Date)*1440

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)




.
Click to expand...
 
Back
Top