Error Handling

[maclachlan19]

Hoping somebody can help, I'm a rookie in VBA (but learning).
I have the piece of code below and had 2 questions.

1. I would like to add code so that if the Path isn't available the spreadsheet doesn't give the user an error upon opening. This could happen if the user moves the file from the shared folder.

2. What does the Option Explicit do at the start of the code, is this required or should it be there.

Thanks


Option Explicit


Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\old reports\logfiles\ELR Analysis.log" For Append As #1
Print #1 , Application.UserName, Now
Close #1
End Sub

 

[Michael M]

Option Explicit means you must declare ALL variables
try

Private Sub Workbook_Open()
On Error GoTo handler:
Open ThisWorkbook.Path & "\old reports\logfiles\ELR Analysis.log" For Append As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , Application.UserName, Now
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
handler:
MsgBox "File Not Available"
End Sub

 

[maclachlan19]

I cut and paste your code but I now get the Message box every time I open the file, regardless if the log is working proper or if the path isn't valid. It seems like the On Error part isn't working like it should.

 

[Michael M]

Sorry, I'm in the car...

Private Sub Workbook_Open()
On Error GoTo errhandler:
Open ThisWorkbook.Path & "\old reports\logfiles\ELR Analysis.log" For Append As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , Application.UserName, Now
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
Exit Sub
errhandler:
MsgBox "File Not Available"
End Sub

 

[maclachlan19]

Michael, thanks for the quick reply. That code now works great!!