開いているエクセルファイルを知る

http://www.bcap.co.jp/hanafusa/VBHLP/excel03.htm
上のサイトを参考にして書いてみました。

Option Explicit

Private Sub Command1_Click()

On Error Resume Next

    Dim ExcelApp    As Object
    Dim FileName    As String
    Dim i           As Integer
    
    Set ExcelApp = GetObject(, "Excel.Application")
    
    '開いているか確認を行ないたいエクセルファイル名 ( フルパス )
    FileName = "C:\sample.xls"
 
    If Err Then
        Err.Clear
    Else
        With ExcelApp
            For i = 1 To .Workbooks.Count
                If .Workbooks(i).Path & "\" & .Workbooks(i).Name = FileName Then
                    Call MsgBox("起動中です")
                    GoTo Exit_Sub
                End If
            Next i
        End With
    End If

    Call MsgBox("大丈夫です")

Exit_Sub:

    Set ExcelApp = Nothing

End Sub