VBAサンプル集
ブックを安全確実に開く方法（Open）

Sub Bookを開く()
　　Dim wb As Workbook
　　Dim buf As String
　　Dim BookPath As String
　　BookPath = "C:\Book1.xls"
　　'ブックの存在チェック
　　buf = Dir(BookPath)
　　If buf = "" Then
　　　　MsgBox BookPath & vbCrLf & "は存在しません。"
　　　　Exit Sub
　　End If
　　'同名ブックのチェック
　　For Each wb In Application.Workbooks
　　　　If wb.Name = buf Then
　　　　　　wb.Activate'指定ブックに移動
　　　　　　MsgBox buf & vbCrLf & "は既に開いています"
　　　　　　Exit Sub
　　　　End If
　　Next

　　'イベントを停止

　　Application.EnableEvents = False　
　　'ブックを開く
　　Workbooks.Open BookPath

　　Application.EnableEvents = True　
End Sub