Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Ввод логина и пароля на веб страницу. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод логина и пароля на веб страницу. (Макросы/Sub)
Ввод логина и пароля на веб страницу.
cerber412 Дата: Вторник, 28.03.2017, 20:17 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, уважаемые гуру экселя.
Помогите решить вопрос.

У меня есть макрос ввода на веб-страницу логина и пароля.
Однако - это только добавление в формы, для этого предназначенных - наборов символов.

А вот как непосредственно ввести эти данные, то есть - сделать импровизированный ввод (на веб-странице обычного браузера - это нажатие клавиши Энтер) - я не знаю.

Подскажите - как заставить макрос - не просто добавлять данные логина и пароля на форму имеющейся вебстраницы, а еще и вводить их - то есть запускать авторизацию ?
К сообщению приложен файл: 3451.xls (40.5 Kb)
 
Ответить
СообщениеЗдравствуйте, уважаемые гуру экселя.
Помогите решить вопрос.

У меня есть макрос ввода на веб-страницу логина и пароля.
Однако - это только добавление в формы, для этого предназначенных - наборов символов.

А вот как непосредственно ввести эти данные, то есть - сделать импровизированный ввод (на веб-странице обычного браузера - это нажатие клавиши Энтер) - я не знаю.

Подскажите - как заставить макрос - не просто добавлять данные логина и пароля на форму имеющейся вебстраницы, а еще и вводить их - то есть запускать авторизацию ?
Автор - cerber412
Дата добавления - 28.03.2017 в 20:17
al-Ex Дата: Среда, 29.03.2017, 00:05 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
Для Вашего примера, возможно - так:
К сообщению приложен файл: 3451-1-.xls (38.5 Kb)


Сообщение отредактировал al-Ex - Среда, 29.03.2017, 02:47
 
Ответить
СообщениеДля Вашего примера, возможно - так:
Автор - al-Ex
Дата добавления - 29.03.2017 в 00:05
cerber412 Дата: Среда, 29.03.2017, 06:54 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
al-Ex, Не работает.

Все как было так и осталось.

Пароль и логин вставляются в форму.
Авторизации не происходит.
 
Ответить
Сообщениеal-Ex, Не работает.

Все как было так и осталось.

Пароль и логин вставляются в форму.
Авторизации не происходит.
Автор - cerber412
Дата добавления - 29.03.2017 в 06:54
al-Ex Дата: Среда, 29.03.2017, 10:48 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
Цитата cerber412, 29.03.2017 в 06:54, в сообщении № 3 ()
Не работает.
Прежде чем запустить макрос надо кликнуть мышкой по окну объекта , таким образом передать ему фокус ввода, потом срабатывает. Наверняка можно и кодом это сделать но как, сходу не готов ответить.


Сообщение отредактировал al-Ex - Среда, 29.03.2017, 10:50
 
Ответить
Сообщение
Цитата cerber412, 29.03.2017 в 06:54, в сообщении № 3 ()
Не работает.
Прежде чем запустить макрос надо кликнуть мышкой по окну объекта , таким образом передать ему фокус ввода, потом срабатывает. Наверняка можно и кодом это сделать но как, сходу не готов ответить.
Автор - al-Ex
Дата добавления - 29.03.2017 в 10:48
Manyasha Дата: Среда, 29.03.2017, 12:17 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 901 ±
Замечаний: 0% ±

Excel 2010, 2016
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]
Код
    Лист1.WebBrowser1.Document.getelementsbyname("passwd").Item(0).Click
    SendKeys "{ENTER}"
[/vba]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение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]
Код
    Лист1.WebBrowser1.Document.getelementsbyname("passwd").Item(0).Click
    SendKeys "{ENTER}"
[/vba]
Автор - Manyasha
Дата добавления - 29.03.2017 в 12:17
cerber412 Дата: Среда, 29.03.2017, 13:55 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, большое спасибо за помощь.


Сообщение отредактировал cerber412 - Среда, 29.03.2017, 13:59
 
Ответить
СообщениеManyasha, большое спасибо за помощь.
Автор - cerber412
Дата добавления - 29.03.2017 в 13:55
ees Дата: Четверг, 15.06.2017, 16:15 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, Здравствуйте! Часть вашего кода у меня подсвечивается красным

такие строчки как:

Dim objIe As Object: Set objIe = CreateObject("InternetExplorer.Application")

Dim doc As HTMLDocument

Loop Until objIe.ReadyState = 4

Подскажите пожалуйста, в чём может быть дело.


Сообщение отредактировал ees - Четверг, 15.06.2017, 16:30
 
Ответить
СообщениеManyasha, Здравствуйте! Часть вашего кода у меня подсвечивается красным

такие строчки как:

Dim objIe As Object: Set objIe = CreateObject("InternetExplorer.Application")

Dim doc As HTMLDocument

Loop Until objIe.ReadyState = 4

Подскажите пожалуйста, в чём может быть дело.
Автор - ees
Дата добавления - 15.06.2017 в 16:15
Manyasha Дата: Пятница, 16.06.2017, 10:24 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 901 ±
Замечаний: 0% ±

Excel 2010, 2016
ees, в tools - references нужно поставить галочку Microsoft HTML Object Library.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеees, в tools - references нужно поставить галочку Microsoft HTML Object Library.
Автор - Manyasha
Дата добавления - 16.06.2017 в 10:24
ees Дата: Понедельник, 19.06.2017, 17:47 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, спасибо за ответ, но проблема всё равно сохранилась



После того как галочку поставил, закрыл книгу с сохранением и открыл заново.


Сообщение отредактировал ees - Понедельник, 19.06.2017, 17:48
 
Ответить
СообщениеManyasha, спасибо за ответ, но проблема всё равно сохранилась



После того как галочку поставил, закрыл книгу с сохранением и открыл заново.
Автор - ees
Дата добавления - 19.06.2017 в 17:47
Manyasha Дата: Понедельник, 19.06.2017, 18:10 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 901 ±
Замечаний: 0% ±

Excel 2010, 2016
ees, попробуйте в файле
К сообщению приложен файл: test.xlsm (15.0 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеees, попробуйте в файле
Автор - Manyasha
Дата добавления - 19.06.2017 в 18:10
ees Дата: Вторник, 20.06.2017, 12:45 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, Спасибо, всё заработало!
 
Ответить
СообщениеManyasha, Спасибо, всё заработало!
Автор - ees
Дата добавления - 20.06.2017 в 12:45
v79italya Дата: Пятница, 10.03.2023, 00:22 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте
Не могли бы и мне помочь с авторизацией на сайте.
Наверное надо два запроса.
Сначала для авторизации - https://tradegreat.smartup.one/login.html
Второй запрос для скачивания файла - https://tradegreat.smartup.one/b....rt=xlsx

Может возможно и скачивать в определенную папку с определенным именем файла. Например, в папку: 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]
Я макросы не пишу, но пользоваться могу)
 
Ответить
СообщениеЗдравствуйте
Не могли бы и мне помочь с авторизацией на сайте.
Наверное надо два запроса.
Сначала для авторизации - https://tradegreat.smartup.one/login.html
Второй запрос для скачивания файла - https://tradegreat.smartup.one/b....rt=xlsx

Может возможно и скачивать в определенную папку с определенным именем файла. Например, в папку: 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
Дата добавления - 10.03.2023 в 00:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод логина и пароля на веб страницу. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!