XMLHTTP60请求被拒绝访问，如何调试和修复？

问题描述

我是VBA的新手，主要在javascirpt，PHP和python方面有经验。

我需要从内部公司端点获取一些json数据，并且我试图使下面的基本代码运行。但是，我收到“访问被拒绝”错误'-2147024891（80070005）'，如所附图片中所述。

我通过“ x-access-token”标头发送的令牌是正确的，并且在Postman上运行良好，但是在Excel VBA上却收到此错误。

你知道为什么吗？有没有一种方法可以调试正在发送的请求（带有所有标头），以了解访问令牌是否实际上传递给了请求？

Sub basic_get()

    Dim req As New MSXML2.XMLHTTP60
    Dim reqURL As String
    Dim status As Integer
    Dim token As String

    'reqURL = "https://jsonplaceholder.typicode.com/posts"
    reqURL = "internal endpoint here"
    token = "token here"
    
    req.Open "GET",reqURL,False
    req.setRequestHeader "x-auth-token",token
    req.setRequestHeader "Content-Type","application/json'"
    req.send
        
    status = req.status
    
    If status <> 200 Then
        Debug.Print "Error - Exiting this Sub"
        Exit Sub
    End If
    
    'Debug.Print req.responseText
    Debug.Print req.getAllResponseHeaders()
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excel excel ms-office