Код VBA для ввода данных на веб-страницу или IE

ввести данные на веб-страницу
Оглавление

VBA Вводит данные на веб-страницу — автоматизация IE с использованием функции VBA GetElementByID

Что это:

Если вы пытаетесь сделать, например, автоматизацию или пытаетесь введите данные на веб-страницу с помощью VBA тогда этот пост для вас. Мы покажем пошаговые инструкции о том, как вводить/заполнять данные, например, с помощью VBA.

Введите данные на веб-страницуPin

Почему это:

Это очень полезно, если вы хотите регулярно вводить или заполнять несколько полей на веб-странице. Или, если вы хотите войти на веб-сайт одним щелчком мыши, не используя стандартную опцию браузера «Запомнить мой пароль» и т. д.

Как ввести данные на веб-страницу с помощью VBA




В этом примере мы используем Excel VBA однако для автоматизации IE вы можете использовать любую платформу, поддерживаемую VBA.

Шаг 1: Откройте книгу Excel, перейдите к построителю кода VBA (Alt + F11) и откройте новый модуль.

Введите данные на веб-страницу

Шаг 2: Скопируйте и вставьте в него приведенный ниже код.

Частный суб wpieautologin()

Дим т.е. Как SHDocVw.InternetExplorer

Набор то есть = Новый SHDocVw.InternetExplorer

т.е.Видимый = Истинный 

т. е. перейдите по адресу «https://www.askeygeek.com/wp-admin». 'мы пытаемся войти на страницу администратора askeygeek.com

Делать

DoEvents

Петля До т.е.readystate = 4

'т.е. READYSTATE имеет 5 различных кодов состояния, здесь мы используем статус 4:

'Неинициализированный = 0

'Загрузка = 1

'Загружен = 2

'Интерактивный =3

'Завершено = 4 

Вызов ie.Document.GetElementByID("user_login").SetAttribute("значение", "testUser")

Вызов ie.Document.GetElementByID("user_pass").SetAttribute("значение", "testPass12345")

 'чтобы найти' » пометить гиперссылку и нажать кнопку

Набор AllInputs = ie.Document.getelementsbytagname(“input”) 'вы можете использовать любой тэг по своему усмотрению

    Для Каждый гиперссылка В Всевходы

        Если Hyper_link.Name = «wp-submit» Тогда 'вы можете использовать .name, .id и т.д.

            Hyper_link.Нажмите

            Выход Для

        Конец Если

    Следующий

Делать

DoEvents

Петля До т.е.readystate = 3

Делать

DoEvents

Петля До т.е.readystate = 4

Конец Саб

Шаг 3: нажмите кнопку «Выполнить» или F5. (Кроме того, вы можете вставить кнопку/фигуру в лист Excel, затем щелкнуть правой кнопкой мыши и назначить этот макрос для запуска каждый раз.)

Введите данные на веб-страницу

Примечания 1: убедитесь, что «Элементы управления Интернетом Microsoft» включены в меню «Инструменты» — «Справочники».

Т.е. АвтоматизацияPin

Примечания 2: щелкните правой кнопкой мыши веб-страницу и выберите «Просмотреть источник», чтобы найти значения GetElement.

GetelementsbytagPin



Picture of Anson Antony
Энсон Энтони
Энсон — соавтор и основатель компании www.askeygeek.com. Изучение чего-то нового всегда было его страстью, а ASKEYGEEK.com — результат его страсти к технологиям и бизнесу. Он имеет десятилетний разносторонний опыт в области аутсорсинга бизнес-процессов, финансов и бухгалтерского учета, информационных технологий, операционного совершенствования и бизнес-аналитики. За время своего пребывания в должности он работал в таких организациях, как Genpact, Hewlett Packard, M*Modal и Capgemini, занимая различные должности и обязанности. Помимо бизнеса и технологий, он любитель кино, который часами вместе смотрит и изучает кино, а также кинорежиссер!

7 Responses

  1. Привет, команда, мне нужно заполнить данные на вкладке «Браузер», которая уже открыта и перенаправлена на нужную страницу, где мне нужно заполнить свои данные. Пожалуйста, предоставьте код VBA для работы с этим сеансом.

  2. Привет,

    Мне нужно нажать на дополнительное сообщение на веб-странице. Можете ли вы помочь мне с кодом? Я поражен этой последней частью нажатия кнопки «ОК».

  3. Можете ли вы мне помочь здесь?
    В следующих строках кода не задан идентификатор или значение. Как мне вставить сказать в «lastnameFilter» или «firstnameFilter»?

    Идентификатор учащегося

    Имя

    Фамилия

    Поиск

    Спасибо

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Поздравляем!
Ты сделал это,
Не закрывайтесь!

Доступ к UberCreate Creator Pro
бесплатно!!!

Это всплывающее окно не покажет вам решать снова!!!

4
Share to...