Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Converter código de leitura da Internet Explorer para Google Chrome [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Marcos853
Colaborador
Colaborador
Mensagens: 18
Registrado em: Sex Set 20, 2019 2:33 pm

Converter código de leitura da Internet Explorer para Google Chrome [RESOLVIDO]

Mensagem por Marcos853 »

Boa tarde!

Pessoal, uma duvida, seria possível alterar o código abaixo para que ele faça toda a pesquisa, preenchimento e retorno do formulário através da tela do Google Chrome?

Não estou conseguindo!

Aliás, esse código já funciona, mas queria perguntar se vocês tem alguma dica para melhora-lo !


--------------------------------------------

Sub Cotação()

Dim MyDate
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.NAVIGATE ("https://servicos.gollog.com.br/Home/Inicio#cotacao")
While .Busy Or .ReadyState <> 4:
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
DoEvents:
Wend

IE.document.getElementById("select_data").Value = Range("F8")
IE.document.getElementById("input_cotacao").Value = Range("C6")
IE.document.getElementById("input_destino").Value = Range("C22")
IE.document.getElementById("input_cotacao_2").Value = ("1")
IE.document.getElementById("input_destino_1").Value = Range("C8")
IE.document.getElementById("select_produto").Value = Range("F6")
IE.document.getElementById("input_entrega").Click

Set target = Range("G15")
If target.Value = "SIM" Then
IE.document.getElementById("input_valor_nota").Value = Range("F15")
IE.document.getElementById("input_seguro").Click
End If
IE.document.getElementById("quote").Click

While .Busy Or .ReadyState <> 4:
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
DoEvents:
Wend

On Error GoTo Invalido

IE.document.getElementById("input_name").Value = ("Marcos")
IE.document.getElementById("input_phone").Value = ("(99) 9999-99999")
IE.document.getElementById("input_email").Value = ("marcos.abreu@spharmu.com.br")
IE.document.getElementById("input_company").Value = ("SPecial Pharmus")

Dim objElementCol As Object
Dim objElement As Object

Set objElementCol = IE.document.getElementsByTagName("input")

For Each objElement In objElementCol
If objElement.Value = "Cadastrar" Then

objElement.Click


Exit For
End If
Next objElement


End With

Invalido:

MsgBox "Valor disponível"


End Sub
Editado pela última vez por Marcos853 em Ter Set 24, 2019 9:25 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Marcos853
Colaborador
Colaborador
Mensagens: 18
Registrado em: Sex Set 20, 2019 2:33 pm

Re: Converter código de leitura da Internet Explorer para Google Chrome

Mensagem por Marcos853 »

Boa noite!

Agradeço, vou assistir todos os videos, vai me ajudar bastante!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder