带有哈希字符的 XMLHTTP

Question

我正在尝试使用 xmlhttp 和 VBA 抓取网站。

Url 有一个井号 (#) 符号，并被 VBA 误解...

这与此处解释的问题相同： Error in XMLHTTP Get request with Special character in URL
代码如下：

Sub webscraping()
Dim x               As String
Dim req             As MSXML2.XMLHTTP60
Dim doc             As HTMLDocument

x = "https://search.gleif.org/#/search/"

Set req = New MSXML2.XMLHTTP60
    With req
        .Open "GET", x, False
        .send
        If .Status <> 200 Then
            MsgBox "Http Request Error"
            Exit Sub
        End If
        Set doc = New MSHTML.HTMLDocument
        doc.body.innerHTML = .responseText
    End With
End Sub

提前谢谢你

Answer 1

您可以通过使用您的搜索词直接调用 API 来绕过此操作，如下所示。我正在使用 json parser 来处理 json 响应。在项目链接处添加 .bas 后，还可以转到 VBE > 工具 > 参考 > 添加对 Microsoft Scripting Runtime 的引用。

请注意，您可以在此处更改 queryString 参数："&page%5Bnumber%5D=1&page%5Bsize%5D=15"。这目前是 page=1，每页记录为 15。

VBA：

Option Explicit
Public Sub webscraping()
    Dim url As String
    Dim req As MSXML2.XMLHTTP60
    Dim doc As HTMLDocument
    Dim json As Object
    Const TERM = "banana corp."

    url = "https://api.gleif.org/api/v1/lei-records?filter%5Bfulltext%5D=" & Application.EncodeURL(TERM) & "&page%5Bnumber%5D=1&page%5Bsize%5D=15"

    Set req = New MSXML2.XMLHTTP60
    With req
        .Open "GET", url, False
        .send
        If .Status <> 200 Then
            MsgBox "Http Request Error"
            Exit Sub
        End If
        Set json = JsonConverter.ParseJson(.responseText)
    End With
    Stop
    'Do something with json
End Sub

返回的信息很多，所以这里只是摘录：

在这里研究 API：

https://www.gleif.org/en/lei-data/gleif-lei-look-up-api/access-the-api