Ir para conteúdo
Fórum Script Brasil

mbremide

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre mbremide

mbremide's Achievements

0

Reputação

  1. 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
×
×
  • Criar Novo...