Excelブックを開く(VBA)

ブックを開くマクロのサンプルです。

Sub OpenExcelBookSample()
    Dim buf As String, wb As Workbook
    Const Target As String = "C:\BookOpenTest.xlsx"
    ''ファイルの存在チェック
    buf = Dir(Target)
    If buf = "" Then
        MsgBox Target & vbCrLf & "は存在しません", vbExclamation
        Exit Sub
    End If
    ''同名ブックのチェック
    For Each wb In Workbooks
        If wb.Name = buf Then
            MsgBox buf & vbCrLf & "はすでに開いています", vbExclamation
            Exit Sub
        End If
    Next wb
    ''ブックを開く
    Workbooks.Open Target
End Sub