対象ブックが存在するか確認（ファイルオブジェクト)

Sub 対象ブックが存在するか確認_Fso()
    Dim fso As Object
    Dim filePath As String
    filePath = "C:\Sample\Book1.xlsx"
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If fso.FileExists(filePath) Then
        Debug.Print "存在する"
    Else
        Debug.Print "存在しない"
    End If
End Sub