Tomás Vásquez Fórum

Boa tarde

Segue a tela de erro a qual me refiro. Fiz a correção das celulas, erro bobo! Depois que acesso ao site, eu fecho o navegador e volto a planilha e escolho outra pessoa fisica para consultar, mas dá o erro.

Na citação "egundo lugar, você ainda está utilizando o Internet Controls no lugar do Selenium.", não sei como trocar, com muito custo modifiquei o codigo para fazer tudo isso hehe. Como eu consigo fazer essas alterações que me indicou?

Victor, comece assistindo este vídeo do Tomás Vásquez, troque sua ferramenta de trabalho corretamente e depois podemos verificar o erro.
https://www.youtube.com/watch?v=hk-65p2ivvQ

Se tiver problemas para instalar e usar, existem outros tópicos sobre o assunto no fórum já tratando disso.

Olá,

O que falta no seu código é a habilitação/ativação das Bibliotecas:
https://www.aprenderexcel.com.br/2017/v ... te-com-vba

Aqui estão as dicas.

ative as bibliotecas Microsoft HTML Object Library e Microsoft Internet Controls
com esse codigo da pra logar no site varias vezes se tiver os dados validos (cpf_cnpj, codigo, senha)
depois de logar estou fechando o navegador (IE.quit) e reabrindo na consulta seguinte, vai ter que desenvolver o restante do codigo antes disso, o que vai fazer depois que logar, etc.

Dim IE As InternetExplorer
Set IE = New InternetExplorer

i = 9
While Plan1.Cells(i, "A") <> ""

link = "https://cav.receita.fazenda.gov.br/aute ... o-esquerdo"
IE.navigate link
IE.Visible = True
Do While IE.Busy = True Or IE.readyState <> 4: DoEvents: Loop

cpf_cnpj = Plan1.Cells(i, "C")
codigo = Plan1.Cells(i, "D")
senha = Plan1.Cells(i, "E")

IE.document.all("NI").innerText = cpf_cnpj
IE.document.all("CodigoAcesso").innerText = codigo
IE.document.all("Senha").innerText = senha

For Each avancar In IE.document.getElementsByClassName("submit")
avancar.Click
Next

Do While IE.Busy = True Or IE.readyState <> 4: DoEvents: Loop

IE.Quit

i = i + 1
Wend