そのExcelファイルが開かれているか？をスクリプトから調べる。

Excel.Applicationが動いているか？は、GetObject(,"Excel.Application")で分かります。
しかし、Excelファイルが開かれているか？は、GetObject("Excelファイル")では分かりません。

あるExcel.Applicationで、そのExcelファイルが開かれているか？は、Application.Workbooksで分かります。
しかし、GetObject(,"Excel.Application")では、Excel.Applicationを列挙することができません。

Path="Excelファイルのフルパス"
On Error Resume Next
Set Application=GetObject(,"Excel.Application")
On Error GoTo 0
If IsEmpty(Application) Then
  MsgBox "No App"
Else
  Count=Application.Workbooks.Count
  Set Book1=GetObject(Path)
  If Count<>Application.Workbooks.Count Then
    MsgBox "Not Open"
  ElseIf Book1.Application Is Application Then
    MsgBox "Open here"
  Else
    MsgBox "Open elsewhere"
  End If
End If