Add Filename to the txt file

[maclachlan19]

I have a small script that logs when a user opens an excel file.
Currently the username and date/time are populated in the txt file. I would like to add filename to the txt file, but not sure how. Thanks

Private Sub Workbook_Open()
On Error GoTo errhandler:
Open "D:\Reports-Service\Old Reports\Log Files\ELR Analysis.log" For Append As #1 
Print #1 , Application.UserName, Now
Close #1 
Exit Sub
errhandler:
MsgBox "Log file not saved"


End Sub

 

[Domenic]

I'm assuming that you want to add the filename on the same line. If so, try...

Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , Application.UserName, Now, ThisWorkbook.Name

Hope this helps!

 

[maclachlan19]

Thanks Domenic, that worked perfectly!