Excelファイルが開いているかを確認する

あるEXCEL BOOK(ファイル名FilNom)が開いているかを、VBA上で確認する例

    Dim AllBok As Workbook
    Dim FilNom As String '確認するファイル名
    Dim jAN As Integer 'jAN > 0 ファイルが開いている
    Dim j As Integer 'カウンター

    jAN = 0
    j = 0

    For Each AllBok In Workbooks
        j = j + 1
        If AllBok.FullName = FilNom Then
            jAN = j
            Exit For
        End If
    Next