開いているエクセルファイルを知る
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