Html 后续使用收件箱从网页表中提取值

当您使用帖子中的URL发出HTTP请求时，脚本无法查看数据，因为所需的数据是通过外部API加载的.try 以这种方式获取值.

Sub GrabCertainValue()
    Const Url$ = "https://www.bcb.gov.br/api/servico/sitebcb/indicadorCambio"
    Dim oHttp As Object, WS As Worksheet
    Dim Rxp As Object, sResp$, jVal As Object
    Dim valorCompra$

    Set WS = ThisWorkbook.Worksheets("Sheet1")
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    Set Rxp = CreateObject("VBScript.RegExp")
    
    With oHttp
        .Open "GET", Url, False
        .setRequestHeader "Accept", "application/json, text/plain, */*"
        .send
        sResp = .responseText
    End With
    
    valorCompra = vbNullString
    
    With Rxp
        .Global = True
        .MultiLine = True
        .Pattern = "valorCompra"":(.*?),"
        
        Set jVal = .Execute(sResp)
        If jVal.Count > 0 Then
            valorCompra = jVal(0).submatches(0)
        End If
    End With
    
    WS.Cells(1, 1) = valorCompra
End Sub