Очистите Интернет с помощью панели поиска

Question

введите здесь описание изображения Я хочу загрузить данные из "https://search.gleif.org/# / search / simpleSearch = ", выполнив поиск по LEI для получения информации об иерархии. образец LEI: 5493005JT54IX5MZ9P52, который относится к Канаде Goose в c. и я хотел бы получить от него информацию об иерархии, и мне может потребоваться поиск пакета LEI, примерный список:

549300J2AX9KPJDW8M08
549300744QUEWQM16V47
54930044KVSC06Z79I06
2549003OO2V9897HYY46
254900GSGCMREWGRAD08

Я в настоящее время использую VBA для завершения sh этого, у меня есть друзья пишут для меня код для другой сети, находя другую доступную информацию, но я не знаю, как ее настроить

он также использует пакет jsonconverter вот код

введите описание изображения здесь

   Sub main()
Dim sht As Worksheet
Dim searchResults As Object
Dim results() As String
Dim entity As Object
Dim i As Long, j As Long
Dim rng As Range
Dim list(1 To 500) As String
Dim elements As Variant

Set sht = ThisWorkbook.Worksheets("GMEI")
j = 0
For j = 1 To 500
list(j) = ThisWorkbook.Worksheets("clientname").Cells(j, 1).Text

Set searchResults = XHRrequest(list(j), 2, 1)
If searchResults("entitySearchResult").Count >= 1 Then
    ReDim results(1 To searchResults("entitySearchResult").Count, 1 To 6)
    i = 0
    For Each entity In searchResults("entitySearchResult")
    i = i + 1                                                  '        '
    results(i, 1) = entity("legalName")                       '        '
    results(i, 2) = entity("LEINumber")
    results(i, 3) = entity("headquartersCity")
    results(i, 4) = entity("headquartersState")
    results(i, 5) = entity("headquartersPostCode")                   '        '
    results(i, 6) = entity("headquartersCountry")                    '        '
    Next entity                                                    '        '

With sht                                                       '        '
    Set rng = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) '        '
End With                                                       '        '
rng.Resize(UBound(results, 1), UBound(results, 2)) = results
End If

Next j
End Sub

Public Function XHRrequest(ByVal key As String, ByVal resultsPerPage As Long, ByVal pageNumber As Long) As Object
Dim req As New WinHttpRequest
Dim url As String

url = "https://www.gmeiutility.org/actions/Search/?isPendingValidationChecked=true&isSearchAllLOUChecked=true&keyWord=" & key & "&page=" & pageNumber & "&resultsPerPage=" & resultsPerPage & "&searchType=baseSearch" 'build the URL according to the parameters

'''''''''Send the HTTP request'''''''''''''''''''''''''''''''
With req                                                    '
    .Open "POST", url, False                                '
    .send                                                   '
    Set XHRrequest = JsonConverter.ParseJson(.responseText) '
End With                                                    '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Function