【VBA】ブックを開く｜OpenBook

' Open a workbook by path or File object
' パス文字列 または FSOのFileオブジェクトでブックを開く

Public Function OpenBook(ByVal file As Variant) As Workbook
    Dim path As String
    
    ' 型判定（文字列 or Fileオブジェクト）
    Select Case TypeName(file)
        Case "String"
            path = CStr(file)
        Case "File"
            path = file.Path
        Case Else
            Err.Raise vbObjectError + 1000, "OpenBook", _
                      "引数はファイルパス文字列かFSO.Fileを指定してください"
    End Select
    
    ' 存在確認
    If Dir(path, vbNormal) = "" Then
        Err.Raise vbObjectError + 1001, "OpenBook", _
                  "指定ファイルが存在しません: " & path
    End If
    
    ' 実際に開く
    Set OpenBook = Workbooks.Open(path)
End Function