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

    Preencher Formulário no Chrome

    avatar
    alanrodrigo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/01/2010

    Preencher Formulário no Chrome Empty Preencher Formulário no Chrome

    Mensagem  alanrodrigo 18/6/2017, 18:49

    Boa tarde.

    Pesquisando na internet, consegui encontrar o código abaixo, que permite ao clicar no botão abrir uma nova aba no navegador chrome exibindo a página desejada:

    Private Sub btConsultar_Click()
    Dim GC As Object
       Dim WebUrl As String
       Dim NavigatorAddress As String
       
       Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
       Set GC = CreateObject("InternetExplorer.Application")
       Let WebUrl = "http://www.tjsp.jus.br/" 'exemplo como se eu fosse acessar o email
       Shell (NavigatorAddress & " -url " & WebUrl)
       GC.Document.all("Processo").Value = "00044133019998260022" 'exemplo
       GC.Document.all("ConsultarProcessoButton").Click
    End Sub

    Ocorre que, não estou conseguindo fazer o preenchimento de um campo da página aberta e não consigo pressionar o botão de consultar, conforme utilizo no Internet Explorer.

    No internet explorer (código que consegui no forum), para o preenchimento da página utilizamos o seguinte:

       ie.Document.all("Processo").Value = "00044133019998260022" 'exemplo
       ie.Document.all("ConsultarProcessoButton").Click

    Mas no Chrome não estou conseguindo fazer a mesma coisa ao utilizar.

       GC.Document.all("Processo").Value = "00044133019998260022" 'exemplo
       GC.Document.all("ConsultarProcessoButton").Click

    Por favor, poderiam me auxiliar?

    Exemplo: dropbox.com/s/375016gxicfmdyy/Chrome.rar?dl=1

    Pela atenção desde já agradeço.
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    Preencher Formulário no Chrome Empty Re: Preencher Formulário no Chrome

    Mensagem  philipp.moreira 19/6/2017, 23:42

    Alan,
    seu problema está nesta linha
    Código:
      Set GC = CreateObject("InternetExplorer.Application")

    Você está instanciando o objeto GC com uma instancia do Internet explorer e não do chrome. Por isso ao fazer com que o objeto GC manipule o input de dados ele não surte efeito no chrome. Experimente corrigir a linha e tente novamente.
    avatar
    alanrodrigo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/01/2010

    Preencher Formulário no Chrome Empty Re: Preencher Formulário no Chrome

    Mensagem  alanrodrigo 20/6/2017, 00:10

    philipp,

    Agradeço por responder.

    Tentei alterar a linha mencionada da seguinte forma:

    Set GC = CreateObject("chrome.Application");
    Set GC = CreateObject("chrome.exe"); e
    Set GC = CreateObject("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe").

    Porém nas três tentativas, acusou o seguinte erro:

    "Erro em tempo de execução '429':
    O componente ActiveX não pode criar objeto"

    philipp.moreira
    philipp.moreira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    Preencher Formulário no Chrome Empty Re: Preencher Formulário no Chrome

    Mensagem  philipp.moreira 20/6/2017, 09:17

    Alan,
    Será possível somente via IE para outros browsers eu não conheço ou identifiquei algum método.
    veja este link: LINK

    talvez algum dos membros mais experientes saibam ajudar. :|

    Conteúdo patrocinado


    Preencher Formulário no Chrome Empty Re: Preencher Formulário no Chrome

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 12:48