The following VBA code uses an API call to get the Current User Name.
http://www.mvps.org/access/api/api0008.htm
The link is to "The Access Web", but it is by no means Access specific. It
works just fine in Excel.
--
George Nicholson
Remove 'Junk' from return address.
"rcweinbe " wrote in message
...
I am trying to use VBA in an Auto_Open Macro in Excel XP. I am trying
to log the username that is stored in the system registry under the
actual username and not just the application's username which may be a
generic or blank name. Here's what I have:
Private Sub Workbook_Open()
LogInformation ThisWorkbook.Name & "; " & Now() & "; Opened By " &
_
Application.UserName & "; Printer: " &
Mid(Application.ActivePrinter, 12, 8)
End Sub
Sub LogInformation(LogMessage As String)
Const LogFileName As String = "P:\Rick\Log
Files\Daily_Report\DailyReportLog.log"
Dim FileNum As Integer
FileNum = FreeFile ' next file number
Open LogFileName For Append As #FileNum ' creates the file if it
doesn't exist
Print #FileNum, LogMessage ' write information at the end of the
text file
Close #FileNum ' close the file
End Sub
Any ideas how to get the System User Name from the registry or any
other location?
Thanks,
Rick
---
Message posted from http://www.ExcelForum.com/