SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: SpeedCAD en Lunes 24 de Marzo de 2003, 14:44

Título: Re: detectar Excel
Publicado por: SpeedCAD en Lunes 24 de Marzo de 2003, 14:44

Hola...

Quiciera saber como detectar si esta abierto Excel al momento de ejecutar mi formulario en VB. :beer:

Un saludo de SpeedCAD...:)
CHILE

Título: Re: detectar Excel
Publicado por: J.M.Movilla en Lunes 24 de Marzo de 2003, 16:37

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.

Título: detectar Excel
Publicado por: SpeedCAD en Lunes 24 de Marzo de 2003, 20:13

Hola...

Justo lo que queria, casi le achunto pero tenia algo malo... muchas gracias...

:good:

Un saludo de SpeedCAD...:)
CHILE