Добрый день! Помогите пожалуйста нубу в таком вопросе:
"Есть файл эксель в нем в одном столбце А расположено множество логинов, во втором столбце В расположено множество паролей(пароли и логины между собой соответственно совпадают). Необходимо путем VBA средств выйти на сайт в личный кабинет и залогинистя под учетной записью, которая находится в 1 строке (А1 - логин, В1 - пароль), потом выйти из личного кабинета и так далее, зайти на этом же сайте под логином и паролем из второй строки, и т.д. В интернете нашел вот такой вот способ решения задачи. Возможно данный код может как нибудь возможно реализовать методом цикла. Помогите его доработать пожалуйста! Заранее всем откликнувшимся огромная благодарность!
"Есть файл эксель в нем в одном столбце А расположено множество логинов, во втором столбце В расположено множество паролей(пароли и логины между собой соответственно совпадают). Необходимо путем VBA средств выйти на сайт в личный кабинет и залогинистя под учетной записью, которая находится в 1 строке (А1 - логин, В1 - пароль), потом выйти из личного кабинета и так далее, зайти на этом же сайте под логином и паролем из второй строки, и т.д. В интернете нашел вот такой вот способ решения задачи. Возможно данный код может как нибудь возможно реализовать методом цикла. Помогите его доработать пожалуйста! Заранее всем откликнувшимся огромная благодарность!
| Код |
|---|
Private Sub Начать_Click()
Dim objShellApp As Object
Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "https://mysyte.ru/desktop/", "", "", 3
Application.Wait Time:=Now + TimeValue("0:00:20")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "11111"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "aaaaa"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{ENTER}"
Application.Wait Time:=Now + TimeValue("0:00:20")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{ENTER}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{ENTER}"
Application.Wait Time:=Now + TimeValue("0:00:02")
MsgBox "Операция выполнена!"
End Sub
|
