読者です 読者をやめる 読者になる 読者になる

特定のブックを開く(既に開いていたら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