Notifications
Clear all
Topic starter
12/01/2021 6:53 pm
Boa noite!
Estou com um problema para fazer um código para fazer uma consulta em um site. Alguém pode me ajudar???
Segue código:
Private Sub ConsultaOptante_Click()
'Consulta optante simples
With objIE
.Visible = True
objIE.Navigate2 "http://www8.receita.fazenda.gov.br/SimplesNacional/aplicacoes.aspx?id=21"
Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
objIE.Document.ID("Cnpj").Value = 04367987000138
objIE.Document.all.Cnpj.Click
End With
End Sub
Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.
13/01/2021 1:06 pm
@denisonreis poderia detalhar qual o problema está tendo ? Se está ocorrendo algum Erro e qual mensagem de erro da ?
Topic starter
13/01/2021 5:55 pm
Boa tarde!
O erro dá nesse comando: objIE.Document.ID("Cnpj").Value = 04367987000138
Não consigo colocar o codigo para preencher o campo CNPJ.