特定のブックを開く(既に開いていたらActivateする)
Dim WB As Workbook
Dim fl As Boolean
fl = False
For Each WB In Workbooks
If WB.Name = "ブック名" Then fl = True
Next WB
If fl Then
Workbooks("ブック名").Activate
Else
Workbooks.Open ("ディレクトリ+ブック名")
End If
Next
Dim WB As Workbook
Dim fl As Boolean
fl = False
For Each WB In Workbooks
If WB.Name = "ブック名" Then fl = True
Next WB
If fl Then
Workbooks("ブック名").Activate
Else
Workbooks.Open ("ディレクトリ+ブック名")
End If
Next