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

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.

Pino

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.

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

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

Pino

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

Pino