Consulta Optante si...
 
Notifications
Clear all

Consulta Optante simples  


denisonreis
(@denisonreis)
New Member Registered
Entrou: 4 meses atrás
Posts: 4
Topic starter  

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.


ResponderCitar (Quote)
Mauro Coutinho
(@coutinho)
Trusted Member Moderator
Entrou: 2 anos atrás
Posts: 98
 

@denisonreis poderia detalhar qual o problema está tendo ? Se está ocorrendo algum Erro e qual mensagem de erro da ?


ResponderCitar (Quote)
denisonreis
(@denisonreis)
New Member Registered
Entrou: 4 meses atrás
Posts: 4
Topic starter  

@coutinho

Boa tarde!

O erro dá nesse  comando: objIE.Document.ID("Cnpj").Value = 04367987000138

Não consigo colocar o codigo para preencher o campo CNPJ.


ResponderCitar (Quote)