VBA - Невозможно обновить элемент SharePoint 2013 через REST API - PullRequest
Новая
       4

VBA - Невозможно обновить элемент SharePoint 2013 через REST API

0 голосов
/ 04 февраля 2020

Я пытаюсь обновить элемент SharePoint через REST API, хотя я получаю следующую ошибку:

{"odata.error": {"code": "- 1, System. InvalidOperationException "," message ": {" lang ":" en-US "," value ":" Тип данных в позиции 0 отличается от ожидаемого. "}}}

Я не совсем уверен, что является причиной этого - у меня установлен тип запроса JSON, но он не принимает мои данные. Любая помощь приветствуется: -)

Мой код: 

Sub Work_Damn_You()

Dim oXMLHTTP As Object

Dim sListNameOrGuid As String
Dim sBatchXml As String
Dim sSoapBody As String
Dim sWTF as string

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")

sListNameOrGuid = sListName

With oXMLHTTP
    .Open "POST", "http://SPSITE.COM/_api/web/lists/GetByTitle('PAGE')/items(22)", True
    .setRequestHeader "X-RequestDigest", testerino
    .setRequestHeader "Accept", "application/json;odata=nometadata"
    .setRequestHeader "Content-Type", "application/json;odata=verbose"
    .setRequestHeader "__metadata", "(""type"":""SP.Data.QATrackerListItem"""

    sWTF = """preTestComment""=""Hello"""
    .send (sWTF)

    Debug.Print (.responseText)

    ' Check response
    If .Status = 200 Then

        Debug.Print .Status & " [Happy Days!]"

    Else
        Debug.Print .Status & " [Sad Days :-(]"
    End If

End With
Set oXMLHTTP = Nothing

End Sub
'''
...