Mantener ventana activa de una aplicacion

2 envíos / 0 nuevos
Último envío
DELFIN_01
Imagen de DELFIN_01
Offline
última acción: Hace 2 años 9 meses
alta: 11/06/2021 - 16:36
Puntos: 25
Mantener ventana activa de una aplicacion

Buena tarde a todos los de este foro

veo que tienen gran capacidad en esto de la macros 

laverdad yo solo trato de aprender cada dia mas de personas como ustes

 

Bueno espero me puedana yudar con esto

ralice una macro que ejecuta una aplicacion de mi empresa, pero utiliza send keys para simular las pulsaciones del teclado

y quisiera saber como mantengo una venta activa mientras se ejecuta las pulsaciones,por que aveces corre  la macro y me esconde lo que esta haciendo, lso sendkeys trabajan sobr lo que esta activo en ese momento

 

un ejemplo de lo que hice 

Sub Open_Program()

Shell ("C:\ejemplo.exe"), vbNormalFocus

Application.Wait (Now + TimeValue("0:00:03"))

SendKeys "{RIGHT}", True 

Application.Wait (Now + TimeValue("0:00:03"))

SendKeys "~", True            

 

En este ultimo paso me abre otra ventana , pero aveces se esconde entonces a qui quiero que ejecute otras pulsaciones y despues se cierre o minimice

y me abra la siguinte ventana.

 

me podran ayudar?

 

de antemano gracias, me han hablado maravillas de esta pagina

Gracias

 

 

 

 

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 21 horas 1 min
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
AppActivate

Con AppActivate puedes hacer que Excel active otra aplicación

Puede utilizarlo antes de enviar las pulsaciones de teclas, para asegurarte que sea ese programa el que las recibe.

La teoría está bien, pero puede que en la práctica no sea tan perfecto como parece.

Se basa en el título de la aplicación, si éste no cambia no tendrás mucho problema. En la ayuda de Micorsoft dicen que esto funciona con el valor devuelto por Shell, pero esto siempre me ha dado problemas, no sé si por la versión de Excel o por la versión de Windows.

Prueba a ver

 

 

------
Ya sé Excel, pero necesito más.