COMO GANHAR FOCO NO EXCEL PARA IE ?
Preciso copiar um texto do ie para o excel irei usar o send keys, como que eu aciona a janela ie para enviar o comando ?
Private Declare Function FindWindow Lib [Ô]user32[Ô] Alias [Ô]FindWindowA[Ô] (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib [Ô]user32[Ô] (ByVal hwnd _
As Long, ByVal nCmdShow As Long) As Long
Private Const SW_MAXIMIZE As Long = 3
Private Const SW_MINIMIZE As Long = 6
Private Const SW_RESTORE As Long = 9
sub Maximiza()
Winwnd = FindWindow(vbNullString, [Ô]TITULO DA JANELA[Ô]) [ô]captura id do programa pelo caption
ShowWindow Winwnd, SW_MAXIMIZE
end sub
só mudar o titulo da jenela!
Private Declare Function ShowWindow Lib [Ô]user32[Ô] (ByVal hwnd _
As Long, ByVal nCmdShow As Long) As Long
Private Const SW_MAXIMIZE As Long = 3
Private Const SW_MINIMIZE As Long = 6
Private Const SW_RESTORE As Long = 9
sub Maximiza()
Winwnd = FindWindow(vbNullString, [Ô]TITULO DA JANELA[Ô]) [ô]captura id do programa pelo caption
ShowWindow Winwnd, SW_MAXIMIZE
end sub
só mudar o titulo da jenela!
Faça seu login para responder