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.
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.