Веб-страница автоматического входа в систему VBA и получение данных

Макрос пытается и не может открыть второй экземпляр IE, попробуйте это.

Sub test()
Dim ie As Object
Dim redURL As String
Dim objCollection As Object
Dim i As Integer

redURL = "https://portal.expeditors.com/expo/login"
On Error Resume Next
Set ie = GetObject(, "InternetExplorer.Application")
If Err Then
    Set ie = CreateObject("InternetExplorer.Application")
End If
On Error GoTo 0
ie.Visible = True
ie.Navigate redURL

Do While ie.Busy
Loop
End Sub

Я бы использовал доступные идентификаторы, а не зацикливался, чтобы найти поля ввода и войти в систему. Это гораздо более быстрые методы выбора. Вы можете добавить .Focus. Кроме того, в некоторых случаях замените InternetExplorer на InternetExplorerMeduim.

Если проблема не устранена, проверьте настройки Интернета на случай, если сайт заблокирован.

Откройте URL-адрес, создав экземпляр IE напрямую.

Option Explicit
Public Sub Login()
    Dim ie As New InternetExplorer               'InternetExplorerMedium
    Const MAX_WAIT_SEC As Long = 5
    Dim t As Date, ele As Object
    With ie
        .Visible = True
        .navigate "https://portal.expeditors.com/expo/login"

        While .Busy Or .readyState < 4: DoEvents: Wend

        With .document

            Do
                DoEvents
                On Error Resume Next
                Set ele = .getElementById("j_username")
                On Error GoTo 0
                If Timer - t > MAX_WAIT_SEC Then Exit Do
            Loop While ele Is Nothing

            If ele Is Nothing Then Exit Sub

            With ele
                .Focus
                .Value = "bob"
            End With
            With .getElementById("j_password")
                .Focus
                .Value = "penny"
            End With

            .getElementById("signInBtn").Click

        End With

        While .Busy Or .readyState < 4: DoEvents: Wend

        Stop                                     '<== Delete me later
        .Quit
    End With
End Sub