| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 . |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 . |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 . . |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 . . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Worksheet Functions | |||
| I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Discussion (Misc queries) | |||
| Count Employee Work Time - Don't Count Duplicates | Excel Worksheet Functions | |||
| how to count the time | Excel Discussion (Misc queries) | |||
| Count Employee Work Time - Don't Double-count Overlapping Apts. | Excel Worksheet Functions | |||
![Mark[_17_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
