IE браузер автоматизации с Excel VBA - PullRequest
0 голосов
/ 23 июня 2019

Я пытаюсь автоматизировать задачи браузера с помощью Excel VBA. Нужно нажать несколько URL для тестирования. Я пытался поразить каждый URL в цикле, но каждый раз браузер IE открывается в одном сеансе.

Я пытаюсь автоматизировать задачи браузера с помощью Excel VBA. Нужно нажать несколько URL для тестирования. Я пытался поразить каждый URL в цикле, но каждый раз браузер IE открывается в одном сеансе. Помогите, пожалуйста, изменить код, чтобы открывать закрытие, т.е. сеанс каждый раз, и открывать в новом сеансе.

Sub test()
    ' open IE, navigate to the desired page and loop until fully loaded
    Set IE = CreateObject("InternetExplorer.Application")

    my_url = "*****UL*******"

    With IE
        .Visible = True
        .Navigate my_url
    End With

    Application.Wait (Now() + TimeValue("0:00:10"))

    Application.SendKeys "Username"
    Application.SendKeys "{TAB}"

    Application.Wait (Now() + TimeValue("0:00:10"))

    Application.SendKeys "Password"    
    Application.SendKeys "{TAB}"
    Application.SendKeys "{RETURN}"

    Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop

    Set IE = Nothing
End Sub

Execting IE bowse, чтобы каждый раз открывать новую сессию. Пожалуйста, помогите изменить код

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...