Código VBA para inserir dados na página da Web ou IE

insira dados na página da web
Índice

VBA insere dados na página da web – IE Automation usando a função VBA GetElementByID

O que é isso:

Se você está tentando fazer, por exemplo, automação ou tentando insira dados na página da web usando VBA então este post é para você. Mostraremos instruções passo a passo sobre como inserir/preencher dados, ou seja, usando VBA.

Insira dados na página da webPin

Por que é isso:

Isso é muito útil quando você deseja inserir ou preencher vários campos em uma página da web regularmente. Ou se você quiser fazer login no site com um único clique, sem usar a opção padrão do navegador Lembrar minha senha, etc.

Como para inserir dados na página da web usando vba




Neste exemplo estamos usando Excel VBA para automação do IE, no entanto, você pode usar qualquer plataforma compatível com VBA.

Passo 1: Abra a pasta de trabalho do Excel e acesse o construtor de código VBA (Alt + F11) e abra um novo módulo.

Insira dados na página da web

Passo 2: Copie e cole o código abaixo nele.

Subprivado wpieautologin()

Escurecer ou seja Como SHDocVw.InternetExplorer

Definir ou seja = Novo SHDocVw.InternetExplorer

ou seja, Visível = Verdadeiro 

ou seja, navegue em “https://www.askeygeek.com/wp-admin” 'estamos tentando fazer login na página de administração do askeygeek.com

Fazer

DoEvents

Laço Até ou seja, readystate = 4

'ou seja, READYSTATE tem 5 códigos de status diferentes, aqui estamos usando o status 4:

'Não inicializado = 0

'Carregando = 1

'Carregado = 2

'Interativo =3

'Completo = 4 

Chamar ou seja,Document.GetElementByID (“user_login”).SetAttribute (“valor”, “testUser”)

Chamar ou seja,Document.GetElementByID (“user_pass”).SetAttribute (“valor”, “testPass12345”)

 'para encontrar o “ ”tag hiper link e clicar no botão

Definir AllInputs = ie.Document.getelementsbytagname(“input”) 'você pode usar qualquer tagname como desejar

    Para Cada hiper_link Em Todas as entradas

        Se hyper_link.Name = “wp-enviar” Então 'você pode usar .name, .id etc.

            hiper_link.Clique

            Saída Para

        Fim Se

    Próximo

Fazer

DoEvents

Laço Até ou seja, readystate = 3

Fazer

DoEvents

Laço Até ou seja, readystate = 4

Fim Sub

Etapa 3: Clique no botão Executar ou F5. (Você também pode inserir um botão/forma na planilha do Excel, clicar com o botão direito e atribuir esta macro para ser executada sempre.)

Insira dados na página da web

Notas 1: Certifique-se de que 'Microsoft Internet Controls' esteja habilitado em Ferramentas – Referências.

Ou seja, automaçãoPin

Notas 2: Clique com o botão direito na página da Web e clique em Exibir código-fonte para encontrar os valores GetElement

Obter elementos por tagPin



Picture of Anson Antony
Anson Antônio
Anson é autor colaborador e fundador da www.askeygeek.com. Aprender algo novo sempre foi sua paixão, ASKEYGEEK.com é o resultado de sua paixão por tecnologia e negócios. Ele tem uma década de experiência versátil em terceirização de processos de negócios, finanças e contabilidade, tecnologia da informação, excelência operacional e inteligência de negócios. Durante sua gestão, ele trabalhou para organizações como Genpact, Hewlett Packard, M*Modal e Capgemini em diversas funções e responsabilidades. Fora dos negócios e da tecnologia, ele é um cinéfilo que passa horas juntos assistindo e aprendendo Cinema e também Cineasta!

7 respostas

  1. oi equipe, preciso preencher os dados na aba Navegador, que já está aberta e navegar até a página exata, onde preciso preencher meus dados, por favor forneça o código VBA para tratar desta sessão.

  2. Você pode me ajudar aqui?
    Não há id ou valor definido nas linhas de código a seguir. Como insiro say em “lastnameFilter” ou “firstnameFilter”?

    ID do aluno

    Primeiro nome

    Nome de família

    Procurar

    Obrigado

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Parabéns!
Você conseguiu,
Não feche!

Acesso UberCreate Creator Pro
de graça!!!

Este pop-up não vai aparecer você decide de novo!!!

4
Share to...