NAVEGAR ENTRE JANELAS

CARLOSCOUTO 15/07/2013 14:51:51
#426068
boas ,
estou precisar de uma forma de abrir uma aplicação externa ao excel e voltar para o excel sem fechar a aplicação externa.
eu estou a fazer assim..mas se não fechar cmd.exe não volta para excel...

WshShell.Run [Ô]cmd.EXE[Ô]
WshShell.SendKeys [Ô]%{F4}[Ô]
Set WshShell = Nothing
ASHKATCHUP 16/07/2013 10:15:43
#426098 Resposta escolhida
Bom dia, Carlos!

Tu precisa fechar o CMD ou NÃO fechar o CMD?
CARLOSCOUTO 16/07/2013 16:19:22
#426138
Citação:

:
Bom dia, Carlos!

Tu precisa fechar o CMD ou NÃO fechar o CMD?


Preciso claro...
CARLOSCOUTO 16/07/2013 16:21:07
#426140
Citação:

:
:
Bom dia, Carlos!

Tu precisa fechar o CMD ou NÃO fechar o CMD?
Preciso claro...


Mas no caso de ficar demorado queria deixar aberto e voltar ao excel...
ASHKATCHUP 16/07/2013 16:36:49
#426144
-Para fechar o CMD, envie o comando [Ô]exit[Ô].
-Para focar uma janela, use a Api SetForegroundWindow


Function SetForegroundWindow Lib [Ô]user32.dll[Ô] (ByVal hwnd As Long) As Long 

Dim retval As Long

retval = SetForegroundWindow(Form1.hWnd)
CARLOSCOUTO 16/07/2013 17:23:03
#426150
Citação:

:
-Para fechar o CMD, envie o comando [Ô]exit[Ô].
-Para focar uma janela, use a Api SetForegroundWindow


Function SetForegroundWindow Lib [Ô]user32.dll[Ô] (ByVal hwnd As Long) As Long 

Dim retval As Long

retval = SetForegroundWindow(Form1.hWnd)



era mesmo isto obrigado
abraço
Tópico encerrado , respostas não são mais permitidas
Voltar