Erro with

[Diego.Machado]

Sub ConsultarCNPJ()

' Adcionar a referência Microsoft HTML Object Libary

Dim IE As Object

Dim doc As HTMLDocument

Dim CNPJ As Range

Dim Status As String

 

' Cria um novo objeto Internet Explorer

Set IE = CreateObject("InternetExplorer.Application")

 

' Para cada CNPJ na coluna A (de A2 até a última célula preenchida)

For Each CNPJ In Worksheets("Planilha1").Range("A2:A" & Worksheets("Planilha1").Cells(Rows.Count, 1).End(xlUp).Row)

 

' Navega para o site de consulta de CNPJ

IE.navigate "https://www.situacao-cadastral.com/"

 

' Aguarda até que a página seja carregada

Do While IE.Busy Or IE.readyState <> 4

Application.Wait DateAdd("s", 1, Now)

Loop

 

' Insere o CNPJ no campo de pesquisa e clica no botão de pesquisa

Set doc = IE.document

doc.getElementById("doc").Value = CNPJ.Value

doc.getElementById("consultar").Click

 

' Aguarda até que a página com os resultados seja carregada

Do While IE.Busy Or IE.readyState <> 4

Application.Wait DateAdd("s", 1, Now)

Loop

 

' Extrai o status do CNPJ e escreve na coluna B

Set doc = IE.document

Status = IE.document.getElementsByClassName("vrd")(0).innerText.Value = IE

CNPJ.Offset(0, 1).Value = Status

 

Next CNPJ

 

' Fecha o Internet Explorer

IE.Quit

End Sub

Fiz esse código vba para o excel ele busca um cnpj na coluna A linha 2 faz as pesquisas e traz a informação se o cnpj ainda esta ativo ou não e continua fazendo até acabar todos os cnpj

Porem no cód Status = IE.document.getElementsByClassName("vrd")(0).innerText

esta dando um erro With já não sei mas como resolver

[Alyson Ronnan Martins]

Boa tarde.
Verifica a resposta no link abaixo: