Obtener que aplicaciones se estan ejecutando

[Gregorio Medellin S.]

Buenas noches a todos, primeramente felicitar a todos los involucrados de MrExecel que hacen posible el funcionamiento de este sitio.


Paso a lo siguente, estoy haciendo una macro en excel Vb pero necesito una instruccion para obtener que aplicaciones se estan corriendo en el sistema.

Hojala me pudieran ayudar.

Saludos cordiales.....

Gregorio

 

[Gettingbetter]

por traducido www.babblefish.com

Good night to all, firstly to congratulate to all those involved of MrExecel that make possible the operation of this place. Step to the siguente, I am making a macro in excel Vb but I need an instruction to obtain that applications are running in the system. Hojala could help me. Cordial greetings

vea debajo del eslabón

http://www.mrexcel.com/board2/viewtopic.php?t=237277&highlight=check+cheque+applications

alegrías

 

[Greg Truby]

Hola Gregorio,

Bienvenido a Mr. Excel. ¿Usted desea un listado de todos los demás programas que están corriendo en Windows? ¿O usted desea una manera de accesar otras instancias de Excel? ¿Por qué quiere saber? Puede ser que existe otra manera de lograr su meta. Pero para que sepa, el eslabón que proveó GettingBetter me parece bien. Jaafar y Tom (RightClick) son dos de nuestros mejores para programación de Windows.

Cordialmente,

 

[Gregorio Medellin S.]

Hola Greg:

Gracias por la bienvenida, tengo una macro que uso para enviar por mail unos reportes que genero en excel automaticamente, estos los envio con el outlook, solo quero saber si ya esta corriendo esta aplicacion o no ya que en la macro hacer correr esta aplicacion.

Saludos cordiales.

Gregorio

 

[Greg Truby]

Ajá, sospeché que era algo asi. Más fácil hacer algo parecido a lo que hago aquí con PowerPoint. Utilizo GetObject() para tratar de agarrar una instancia de PowerPoint. Si hay, se asigna al variable; y si no hay una instancia tengo que crearla...

'_PowerPoint Objects____
    Dim appPPT As PowerPoint.Application, _
        pptNew(me_SlideGroups.zCount) As PowerPoint.Presentation, _
        slideNew As PowerPoint.Slide, slideToIndex As PowerPoint.Slide, _
        shpChart As PowerPoint.Shape, shpTxtBox As PowerPoint.Shape, _
        shpHome As PowerPoint.Shape
        
'...

    '// Create a Handle to PowerPoint
    On Error Resume Next
    Set appPPT = GetObject(, "PowerPoint.Application")
    On Error GoTo 0
    If appPPT Is Nothing Then
        booIStartedPPT = True
        Set appPPT = New PowerPoint.Application
    End If
    appPPT.Visible = msoTrue

^edit Favor notar que el código arriba implica que el proyecto tiene una referencia a PowerPoint. O en el caso suyo, para hacer algo semejante, el proyecto se necesita un referencia a Outlook. Se puede hacer con Late Binding también con CreateObject() si no se puede hacer la referencia antemano. _/edit

Atentamente,

 

[Gregorio Medellin S.]

Greg:

Ya adecué el codigo que indico y si es lo que estaba buscando.


Gracias por la ayuda

Saludos...
Gregorio M.