Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Retornar um valor em especifico de um formulário da WEB no excel

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

Retornar um valor em especifico de um formulário da WEB no excel

Mensagem por Marcos853 » Qua Set 25, 2019 2:47 pm

Boa tarde!

Pessoal, eu estou conseguindo através dos códigos abaixo, entrar em um site preencher um formulário da WEB e mostrar na tela do explorer os valores da cotação, no entanto, eu queria que esses valores fosse informados no excel, pretendo deixar o explorer em ---Visible = false-----, alguém conseguiria me ajudar?

Estou enviando um modelo da planilha, no caso a Sub que estou com dúvidas seria a que segue:

Obs: Na planilha eu tenho varias Sub desenvolvidas, aceito dicas nas outras, mas a que eu estou com dúvida seria a da cotação!

Código: Selecionar todos

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
Anexos
Planilha de Cotação - Gollog - Modelo - Data 24.09.rar
(285.43 KiB) Baixado 11 vezes



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.


Julio Mangilli
Colaborador
Colaborador
Mensagens: 90
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Retornar um valor em especifico de um formulário da WEB no excel

Mensagem por Julio Mangilli » Seg Out 14, 2019 8:05 am

Amigo você já conseguiu?
Você ainda quer mudar seu código para o Chrome?


Abraço.



Responder