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

    Preencher Formulário no Chrome

    Compartilhe

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Preencher Formulário no Chrome

    Mensagem  alanrodrigo em Dom 18 Jun 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.
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Preencher Formulário no Chrome

    Mensagem  philipp.moreira em Seg 19 Jun 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.

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Preencher Formulário no Chrome

    Mensagem  alanrodrigo em Ter 20 Jun 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"

    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Preencher Formulário no Chrome

    Mensagem  philipp.moreira em Ter 20 Jun 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: [Você precisa estar registrado e conectado para ver este link.]

    talvez algum dos membros mais experientes saibam ajudar. :|

      Data/hora atual: Seg 20 Nov 2017, 17:20