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
最終更新：2009年10月25日 23:32
