У меня есть макрос ввода на веб-страницу логина и пароля. Однако - это только добавление в формы, для этого предназначенных - наборов символов.
А вот как непосредственно ввести эти данные, то есть - сделать импровизированный ввод (на веб-странице обычного браузера - это нажатие клавиши Энтер) - я не знаю.
Подскажите - как заставить макрос - не просто добавлять данные логина и пароля на форму имеющейся вебстраницы, а еще и вводить их - то есть запускать авторизацию ?
У меня есть макрос ввода на веб-страницу логина и пароля. Однако - это только добавление в формы, для этого предназначенных - наборов символов.
А вот как непосредственно ввести эти данные, то есть - сделать импровизированный ввод (на веб-странице обычного браузера - это нажатие клавиши Энтер) - я не знаю.
Подскажите - как заставить макрос - не просто добавлять данные логина и пароля на форму имеющейся вебстраницы, а еще и вводить их - то есть запускать авторизацию ?cerber412
Sub test() Лист1.WebBrowser1.Document.getelementsbyname("login").Item(0).Value = Range("s5") Лист1.WebBrowser1.Document.getelementsbyname("passwd").Item(0).Value = Range("u5") Лист1.WebBrowser1.Document.getelementsbyname("passwd").Item(0).Click SendKeys "{ENTER}" End Sub
[/vba]
Для Вашего примера, возможно - так:
[vba]
Код
Sub test() Лист1.WebBrowser1.Document.getelementsbyname("login").Item(0).Value = Range("s5") Лист1.WebBrowser1.Document.getelementsbyname("passwd").Item(0).Value = Range("u5") Лист1.WebBrowser1.Document.getelementsbyname("passwd").Item(0).Click SendKeys "{ENTER}" End Sub
Прежде чем запустить макрос надо кликнуть мышкой по окну объекта , таким образом передать ему фокус ввода, потом срабатывает. Наверняка можно и кодом это сделать но как, сходу не готов ответить.
Прежде чем запустить макрос надо кликнуть мышкой по окну объекта , таким образом передать ему фокус ввода, потом срабатывает. Наверняка можно и кодом это сделать но как, сходу не готов ответить.al-Ex
Сообщение отредактировал al-Ex - Среда, 29.03.2017, 10:50
cerber412, у меня в миссингах стоит microsoft internet transfer control. У меня вот так работает: [vba]
Код
Sub rrr() Dim objIe As Object: Set objIe = CreateObject("InternetExplorer.Application") Dim doc As HTMLDocument objIe.Visible = 1 'вставить нужный url objIe.Navigate "https://yandex.ru/search/?text=1" Do DoEvents Loop Until objIe.ReadyState = 4
Set doc = objIe.Document doc.getElementsByName("login").Item(0).Value = Range("s5") doc.getElementsByName("passwd").Item(0).Value = Range("u5") doc.querySelector(".serp-header__nav>form").submit End Sub
[/vba] (в ссылках подключила microsoft HTML Object Library)
Попробуйте последнюю строчку к себе в макрос добавить вместо [vba]
cerber412, у меня в миссингах стоит microsoft internet transfer control. У меня вот так работает: [vba]
Код
Sub rrr() Dim objIe As Object: Set objIe = CreateObject("InternetExplorer.Application") Dim doc As HTMLDocument objIe.Visible = 1 'вставить нужный url objIe.Navigate "https://yandex.ru/search/?text=1" Do DoEvents Loop Until objIe.ReadyState = 4
Set doc = objIe.Document doc.getElementsByName("login").Item(0).Value = Range("s5") doc.getElementsByName("passwd").Item(0).Value = Range("u5") doc.querySelector(".serp-header__nav>form").submit End Sub
[/vba] (в ссылках подключила microsoft HTML Object Library)
Попробуйте последнюю строчку к себе в макрос добавить вместо [vba]
Может возможно и скачивать в определенную папку с определенным именем файла. Например, в папку: C:\test с именем: Test_1.xlsx Этот код успешно прописывает логин и пароль, но не жмет Войти. [vba]
Код
Sub rrr() Dim objIe As Object Set objIe = CreateObject("InternetExplorer.Application") Dim doc As HTMLDocument objIe.Visible = 1 'вставить нужный url objIe.Navigate "https://tradegreat.smartup.one/login.html" Do DoEvents Loop Until objIe.ReadyState = 4
Set doc = objIe.Document doc.getElementsByName("login").Item(0).Value = Range("s5") doc.getElementsByName("password").Item(0).Value = Range("u5") doc.querySelector(".serp-header__nav>form").submit End Sub
Может возможно и скачивать в определенную папку с определенным именем файла. Например, в папку: C:\test с именем: Test_1.xlsx Этот код успешно прописывает логин и пароль, но не жмет Войти. [vba]
Код
Sub rrr() Dim objIe As Object Set objIe = CreateObject("InternetExplorer.Application") Dim doc As HTMLDocument objIe.Visible = 1 'вставить нужный url objIe.Navigate "https://tradegreat.smartup.one/login.html" Do DoEvents Loop Until objIe.ReadyState = 4
Set doc = objIe.Document doc.getElementsByName("login").Item(0).Value = Range("s5") doc.getElementsByName("password").Item(0).Value = Range("u5") doc.querySelector(".serp-header__nav>form").submit End Sub
[/vba] Я макросы не пишу, но пользоваться могу)v79italya