none
Preciso criar um robô que busca certidões trabalhistas no site da receita federal. Problema ao tentar encontrar o ID de um objeto na pagina RRS feed

  • Pergunta

  • O código é o seguinte
    Sub IE_INSS()
       Dim objIE As InternetExplorer
       
       Set objIE = New InternetExplorer
       objIE.Navigate "http://www010.dataprev.gov.br/cws/contexto/cnd/cnd.html "
       objIE.Visible = True
         
      'Loop unitl ie page is fully loaded
       Do Until objIE.ReadyState = READYSTATE_COMPLETE
       Loop
       
       'On Error Resume Next
       objIE.Document.getElementById("num").Value = "30967020/0001-05"
       objIE.Document.getElementById("Sub.Enter").Click
       
       Set objIE = Nothing
       
    End Sub
    Não consigo executá-lo e gostaria de saber porquê
    VLWW
    quinta-feira, 12 de janeiro de 2012 22:01

Respostas