VBA в SmartSheet API

Question

Public Function GETSHEET(sID As String, xTOK As String) As WebResponse


Dim sSHEET As New WebClient
Dim xD As New Dictionary
Dim xR As WebResponse
Dim xNC As New Collection

sSHEET.BaseUrl = "https://api.smartsheet.com/2.0/sheets/"

Set xR = sSHEET.GetJson(sID)
xNC.Add WebHelpers.CreateKeyValue("Authorization", "Bearer " & xTOK)
xD.Add "Headers", Headers
Set xR = sSHEET.GetJson(sID, xD)

If xR.StatusCode = WebStatusCode.Ok Then
    Set GETSHEET = xR
Else
    bR = MsgBox("Error!" & Chr(10) & _
                        "Status Code : " & xR.StatusCode & Chr(10) & _
                        "Code Description : " & xR.StatusDescription & Chr(10) & _
                        "Content : " & xR.Content, vbCritical, "Error!")

    Debug.Print "Error!"
    Debug.Print xR.StatusCode
    Debug.Print xR.StatusDescription
    Debug.Print xR.Content
    End
End If

End Function

Итак, я получил ответ Код состояния: 404 Код ошибки: 1006 - не найден, но токен в порядке, а идентификатор листа задан в функции.Почему он не находит лист?

Answer 1

@ QHarr, я только что попробовал другой подход.Гораздо проще на самом деле.Спасибо за помощь!

Public Sub IMPORTMESTER()

Dim username As String, APIkey As String
Dim URL As String
Dim httpReq As Object


xTOK = "bdj62bzknriy3dd9g561on2xl2"

URL = "https://api.smartsheet.com/2.0/sheets/7352150637471620"

Set httpReq = CreateObject("MSXML2.XMLHTTP.6.0")
With httpReq
    .Open "GET", URL, False
    .setRequestHeader "Authorization", "Bearer " & xTOK
    .send
    MsgBox "Status = " & .statustext & vbNewLine & _
           "Response = " & .responseText
End With

End Sub