※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。


2009-10-25 23:32:15 (Sun)



Dim wb As Workbook, flag As Boolean
For Each wb In Workbooks
If UCase(wb.Name) = "BOOK1.XLS" Then flag = True
Next wb
If flag = True Then
MsgBox "Book1 を開いています。", vbInformation
Else
MsgBox "Book1 は開いていません", vbInformation
End If