Получите HTML-данные из родительского окна Url без браузера IE - информация об отслеживании UPS для нескольких пакетов

Надеюсь, это не глупый вопрос. У меня есть поиск с высоким и низким для ответа, теперь это удача. Я новичок в использовании VBA для получения информации из Интернета. У меня рабочая версия, которая использует IE.doc, но она медленная, и вам приходится ждать загрузки браузеров. Я привел ниже рабочую функцию, которую я преобразовал в подпрограмму для примера. Проблема в том, что без открытия родительского окна у вас нет доступа ко всем номерам отслеживания.

Это JavaScript, который я использую для вызова родительского окна с Internet Explore. Возможно ли это сделать? Я иду в правильном направлении?

IE.document.parentWindow.execScript "handleTrackDetailShowShipments()", "JavaScript"

Я впервые использовал "С CreateObject (" msxml2.xmlhttp ")", так что, возможно, я просто задаю вопрос неправильно при поиске ответа.

Ссылки: регулярные выражения Microsoft VBScript 5.5

VBA:

Sub GetTrackingData_Html_UPS()

    Dim TrackN As String
    Dim x As Long, y As Long
    Dim Htm As Object
    Dim i As Integer
    Dim theRegex As Object
    Dim theString As String
    Dim s() As String
    Dim myColl As Collection
    Dim iCtr As Long
    Dim tempArray As Variant

    Set myColl = New Collection
    Set theRegex = CreateObject("VBScript.RegExp")

    With theRegex
        .MultiLine = False
        .Global = True
        .IgnoreCase = False
    End With

    Set Htm = CreateObject("htmlFile")

    TrackN = "1Z7452780345800256"

    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://wwwapps.ups.com/WebTracking/processRequest?HTMLVersion=" & _
                     "5.0&Requester=NES&AgreeToTermsAndConditions=yes&loc=en_US&tracknum=" _
                    & TrackN & "&WT.z_eCTAid=ct1_eml_Tracking", False
         .send
        Htm.body.innerHTML = .responseText
    End With

    'IE.document.parentWindow.execScript "handleTrackDetailShowShipments()", "JavaScript" '< I want data from the parent window
    '/\ this works if i use InternetExplorer but it is so slow and hit or miss

    Debug.Print Htm.getElementsByTagName("h1")(0).innerText & vbNewLine & _
                Htm.getElementsByTagName("h4")(1).innerText & vbNewLine & _
                Htm.getElementsByTagName("h4")(4).innerText & vbNewLine & _
                "Master Tracking Number:  " & Htm.getElementsByTagName("h3")(0).innerText & _
                vbNewLine

    theRegex.Pattern = "([0-9][A-z][0-9A-z][0-9][0-9][0-9][0-9][0-9A-z][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])"

    Set MyMatches = theRegex.Execute(Htm.body.innerHTML)

        If MyMatches.Count <> 0 Then
                With MyMatches
                    For myMatchCt = 0 To .Count - 1
                        For subMtCt = 0 To .Item(subMtCt).SubMatches.Count - 1
                            Item = (.Item(myMatchCt).SubMatches.Item(subMtCt))
                            Tracking = Tracking & Trim(Item) & ","
                        Next
                    Next
                End With
            Else
        End If

        s = Split(Tracking, ",")

        On Error Resume Next

        For i = UBound(s) - 1 To 0 Step -1
              myColl.Add s(i), CStr(s(i))
        Next i

        On Error Resume Next

        ReDim s(LBound(s) To LBound(s) + myColl.Count - 1)

        For i = 1 To myColl.Count
           Debug.Print i & " " & myColl(i)
        Next i

    Set theRegex = Nothing
    Set Htm = Nothing
    Set MyMatches = Nothing

End Sub