ネットワークエラーを無視する方法

Question

ネットワークエラーを無視する方法があればご教示いただきたいと思います。
よろしくお願いします。
以下のコードでは対応していないようなのであればお願いします。

Sub Auto_Open()

Dim x, a, b, c, d As Long

Dim sh1 As Worksheet
Dim pdfpath As String
On Error Resume Next

Set sh1 = Worksheets("Sheet1")

For b = 1 To Range("J60000").End(xlUp).Row
 
x = Mid(sh1.Cells(b, 10), 1, 8)
c = Mid(sh1.Cells(b, 10), 3, 6)

a = Mid(sh1.Cells(b, 10), 3, 4)

 If Range("A18") = Cells(b, 1) Then
 
 With CreateObject("Shell.Application")
    .ShellExecute "\機械図面\製造図面" & "\" & "NS" & a & "00" & "～" & "NS" & a & "99" & "\" & x & ".pdf"
  
 End With
 
 End If
 
 Next b
 On Error GoTo 0
End Sub

Comments

[ttyp03]

例えばどのようなコードでネットワークエラーを起こせばよいのでしょうか？

[hajihaji]

対象となるコードを追記しました。

Answer 1

本質的にはエラーというのは無視してはいけないものです。
特にネットワークなんてのは、ネットワークが繋がっていなければそもそも以後の動作に支障を来すことが大半ですから、エラーを無視して続行しても、以後の処理で余計に困ったことになります。

ネットワークエラーを検知して適切な処理をする、ならいいのですが。

さてネットワークエラーの検知方法ですが、これはネットワークをどうやって使っているか（どのAPIを使っているか）によって異なってきますので、質問に書かれた内容からではどうにも答えようがありません。
「○○を使ってネットワークに接続しようとしているが、エラーのときにプログラムを止めずに処理したい」といったように、質問を修正された方がよいでしょう。

Comments

[hajihaji]

ご指摘ありがとうございます。
対象となりますコードを記入しました。

Answer 2

他の回答に類似しますが、エラーを無視するのではなく、エラーが起きないようなコードを書くべきです。
例えば、0除算しないように、あらかじめ0かどうかをチェックするようなことです。
今回のコードでは次のようにあらかじめファイルが存在するか否かで回避できるかと思います。

pdf = "\機械図面\製造図面" & "\" & "NS" & a & "00" & "～" & "NS" & a & "99" & "\" & x & ".pdf"
ret = Dir(pdf)
If Not IsEmpty(ret) And ret <> "" Then
    With CreateObject("Shell.Application")
        .ShellExecute pdf
    End With
End If

Comments

[hajihaji]

できました。ありがとうございました。