Usa este código:
Dim xEa As Excel.Application
' Ignorar bloqueo por error durante la apertura de Excel
On Error Resume Next
Set xEa = GetObject(, "Excel.Application")
' Si no está Excel abierto, se produce un error
If Err.Number = 0 Then
msgbox("Se está ejecutando Excel")
' Ciérralo o toma la decisión precisa
else
' Si necesitas abrirlo:
Set xEa = CreateObject("Excel.Application")
End If
' Borrar el objeto Err, por si se produjo error.
Err.Clear
' Reanudar el procesamiento normal de errores.
On Error GoTo 0
¿Te sirvió? Me alegro.
