MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Internet Explorer

    Compartilhe

    CRIS_FUNCIONAL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 14/06/2015

    Internet Explorer

    Mensagem  CRIS_FUNCIONAL em 16/1/2018, 10:59

    Pessoal, Bom Dia!

    Estou precisando descobrir como consigo clicar no botão selecionar tudo do navegador internet explorer.

    Já consigo acessar a página via vba, através da classe Internet.Application.

    No fórum encontrei alguns códigos de como acessar a página e pegar o elementos html da página, entretanto não achei nada que manipule as opções do navegador.

    Ricardo Monteiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 27/11/2017

    Resposta

    Mensagem  Ricardo Monteiro em 18/4/2018, 17:57

    O código para selecionar tudo na página é:

    .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT



    Private Sub Comando1_Click()
       Dim ie As New InternetExplorer                                                         'Declara ie como um novo objeto internet explorer
       ie.Navigate "[Você precisa estar registrado e conectado para ver este link.]                                                       'Navega para a Página [Você precisa estar registrado e conectado para ver este link.]
       ie.Visible = True                                                                               'Ativa a visibilidade do aplicativo
       Do Until ie.ReadyState = READYSTATE_COMPLETE                              ' Espera até que o carregamento da página esteja completo
       Loop
       ie.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT        'Seleciona tudo na página
    End Sub

    Espero ter ajudado.

      Data/hora atual: 24/9/2018, 20:57