Inserir Dados em Campos de uma Pagina em HTML com VBA

[mbremide]

Boa tarde, 

 

Utilizo o código abaixo para abrir uma pagina da internet e preencher automaticamente os campos disponíveis, otimizando o tempo e deixando a interação do usuário sendo a mínima possível, para o exemplo abaixo funciona perfeitamente.

Tentei utilizar o mesmo padrão para outro site "http://cnd.dataprev.gov.br/cws/contexto/aguia02/aguia02.html", mas não funciona, após algumas verificações, percebi que uma diferença entre os dois é que a pagina que não funciona está em "html", procurei em alguns fóruns e vi que há a necessidade de mudança do código para paginas em "html", como não tenho muito conhecimento de VBA, estou postando aqui minha dúvida.

Será que alguém poderia me ajudar com o código para a pagina  "http://cnd.dataprev.gov.br/cws/contexto/aguia02/aguia02.html"

Public Sub ConsultaSimples()
On Error Resume Next
Dim endereço As String
Dim mostra As Boolean

Dim i, n, x As Integer
endereço = "https://www8.receita.fazenda.gov.br/SimplesNacional/controleAcesso/Autentica.aspx?id=6"
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate (endereço)
While IE.ReadyState <> 4
Wend
IE.Visible = True
IE.Document.forms.Item(0).Item(4).Value = Sheets(6).Range("D2")
IE.Document.forms.Item(0).Item(5).Value = Sheets(6).Range("E2")
IE.Document.forms.Item(0).Item(6).Value = Sheets(6).Range("F2")
    
While IE.ReadyState <> 4
Wend
End Sub

 

Desde já agradeço

 

[Mohamed]

Tenta

IE.Document.forms.Item(0).Item(4).innerText = Sheets(6).Range("D2")
IE.Document.forms.Item(0).Item(5).innerText = Sheets(6).Range("E2")
IE.Document.forms.Item(0).Item(6).innerText = Sheets(6).Range("F2")

ou se não der certo tenta

    ie.document.all("Nome do item").innerText = Sheets(6).Range("D2")

    ie.document.all("Nome do item").innerText = Sheets(6).Range("E2")

    ie.document.all("Nome do item").innerText = Sheets(6).Range("F2")