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

Question

Я пытаюсь автоматизировать вход на страницу с использованием кода VBA.Я использовал этот код для одной страницы, и он, кажется, работает без каких-либо ошибок.Однако, когда я пытаюсь использовать на другой странице, он продолжает выдавать error 91:

Переменная объекта или переменная блока не установлена.

Есть идеи, что не так с приведенным ниже примером кода?

Sub LoginDAWN()
    Const Url$ = "http://pathology01/DawnAC/DawnAppPool_1/polarserver.asp?Screen=FrameSet&SID=BF8C62FB9D438AB0313E751C077F3B92&PageID=0"
    Dim UserName As String, Password As String, LoginData As Worksheet

    Set LoginData = ThisWorkbook.Worksheets("Accounts")

    UserName = LoginData.Cells(2, "A").Value
    Password = LoginData.Cells(3, "A").Value

    Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")

    With ie

        .navigate Url

        ieBusy2 ie

        .Visible = True

        Dim oLogin As Object, oPassword As Object

        Set oLogin = .Document.getElementsByName("UserName")(0)

        Set oPassword = .Document.getElementsByName("PassWord")(0)

        oLogin.Value = UserName

        oPassword.Value = Password

        .Document.forms(0).FireEvent

    End With
    'Application.SendKeys ("{enter}")
End Sub

Sub ieBusy2(ie As Object)
    Do While ie.Busy Or ie.readyState < 4
        DoEvents
    Loop
End Sub