MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Internet Explorer

    avatar
    CRIS_FUNCIONAL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Internet Explorer Empty Internet Explorer

    Mensagem  CRIS_FUNCIONAL 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.
    avatar
    Ricardo Monteiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Internet Explorer Empty Resposta

    Mensagem  Ricardo Monteiro 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 "www.exemplo.com"                                                       'Navega para a Página www.exemplo.com
       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: 22/11/2024, 00:37