count time
 

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

count time
 

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

count time
 

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


.

count time
 

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


.

count time
 

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)

"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


.

count time
 

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

"Mark" wrote:

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

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


.



.

count time
 

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)

"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


.



.