URLが存在するか確かめる

URLの有無を確認する

Sub test

'URLの存在を確認

Dim URL As String
URL = http://○○○.html

On Error Resume Next
Workbooks.Open Filename:=URL

If Err <> 0 Then

Debug.Print "ファイルにアクセスできません "
GoTo Step0

End If

Debug.Print "ファイルを開きました"

Workbooks(URL).Close SaveChanges:=False

Step0:

On Error GoTo 0

End Sub