How to handle "462: The remote server machine does not exist"

[pitaszek]

Hi Guys,

I am struggling with how to always handle the 462 error successfully. I am operating on VDI and I try to open a file to read some details from there. My experience show that it will finally open the file after 2 or 3 attempts.

The code I've written for that goes like this and still sometimes fails letting the error to pop up. I'd appreciate if someone could do some corrections:

For k = 1 To 2
    Set sourceWB = Workbooks.Open(strFile & "Looping stuff.xlsm")
    On Error Resume Next
    
    If Err.Number <> 0 Then
        WasteTime (10)
        Set sourceWB = Workbooks.Open(strFile & "Looping stuff.xlsm")
    End If
    On Error GoTo 0
Next k

and here is some delay logic meant to wait for 10 seconds:

Sub WasteTime(Finish As Long) 
    Dim NowTick As Long
    Dim EndTick As Long
 
    EndTick = GetTickCount + (Finish * 1000)
     
    Do
 
        NowTick = GetTickCount
        DoEvents
 
    Loop Until NowTick >= EndTick
 
End Sub

Regards,
Witek

 

[bobsan42]

Main thing would be move the On Error instruction before the first try.

ir=5
On Error Resume Next
For k = 1 To ir
   err.clear
    Set sourceWB = Workbooks.Open(strFile & "Looping stuff.xlsm")
    If Err.Number <> 0 Then
        WasteTime (10)
   Else
        Exit For
    End If
Next k
On Error GoTo 0

And you can use a parameter to optimize the number of retries.
Still you must come up with some code to deal with failure to open the file even after a 100 loops

 

[Tim_Excel_]

Hi

Perhaps a way to partially tackle this is to try 3 times, and then ask the user to try again.

Dim FailedOpen as Boolean
For k = 0 To 2
    FailedOpen = False

    On Error Resume Next
    Set sourceWB = Workbooks.Open(strFile & "Looping stuff.xlsm")
    
    If Err.Number = 462 Then 'make sure this is the correct error number
        FailedOpen = True
        WasteTime (10)
        Set sourceWB = Workbooks.Open(strFile & "Looping stuff.xlsm")
    ElseIf Err.Number <> 0 Then
        GoTo ErrHandler
    Else
        Exit For
    End If
    On Error GoTo 0
Next k

If FailedOpen = True then 
    box = MsgBox ("Failed to open file. Try again?", vbRetryCancel, "Error")
    If box = vbRetry Then GoTo retryopen
    If box <> vbRetry Then Exit Sub
End If

Exit Sub

ErrHandler:
MsgBox "Unexpected error occurred. Program execution has been stopped.", vbCritical, "Error"
End Sub

I made the error handling more specific so that the code only retries to open the file if you get the specific error you described. If you get another error, the code proceeds to a non-specific error handler.

 

[pitaszek]

I feel like this gets into infinite loops in both cases. Do you have any idea why this can be like that?

Regards,
Witek

 

[Tim_Excel_]

Neither of the two answers will cause infinite loops. Bob's code loops five times and then gives up, mine loops three times after which it asks the user to try again (if yes, three more loops follow, and so on).

I noticed I forgot a label line in my code. Change:

Dim FailedOpen as Boolean

retryopen:
For k = 0 To 2
    FailedOpen = False
'....

 

[bobsan42]

try to debug step by step.

Maybe there is some other line of code that gets you back to the beginning?