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.
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")
Inserir Dados em Campos de uma Pagina em HTML com VBA
em VBA
Postado
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