Ajouter et mettre à Jour Seul Élément dans la Liste Sharepoint via VBA

Je suis en train d'ajouter et/ou de mise à jour simple des éléments dans une liste sharepoint via VBA et j'ai trouvé une question similaire:
L'importation de Sharepoint 2010 liste des données à partir d'Excel tableau à l'aide de VBA

Mais je dois dire que je ne peux supprimer des éléments avec ce code et je ne suis pas familier avec ce code pour comprendre comment je peux ajouter.

Merci d'avance

Edit: j'ai Également ici: http://msdn.microsoft.com/en-us/library/lists.lists.updatelistitems(v=office.12).aspx mais j'ai juste ne pas obtenir

OriginalL'auteur AElxs | 2014-03-17

  1. 5
    Sub Add_Item(ListName As String, SharepointUrl As String, ValueVar As String, FieldNameVar As String)

Dim objXMLHTTP As MSXML2.XMLHTTP

Dim strListNameOrGuid As String
Dim strBatchXml As String
Dim strSoapBody As String

Set objXMLHTTP = New MSXML2.XMLHTTP

strListNameOrGuid = ListName


'Add New Item'
strBatchXml = "<Batch OnError='Continue'><Method ID='3' Cmd='New'><Field Name='ID'>New</Field><Field Name=" + FieldNameVar + ">" + ValueVar + "</Field></Method></Batch>"


objXMLHTTP.Open "POST", SharepointUrl + "_vti_bin/Lists.asmx", False
objXMLHTTP.setRequestHeader "Content-Type", "text/xml; charset=""UTF-8"""
objXMLHTTP.setRequestHeader "SOAPAction", "http://schemas.microsoft.com/sharepoint/soap/UpdateListItems"

strSoapBody = "<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' " _  
 & "xmlns:xsd='http://www.w3.org/2001/XMLSchema' " _
 & "xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'><soap:Body><UpdateListItems " _
 & "xmlns='http://schemas.microsoft.com/sharepoint/soap/'><listName>" & strListNameOrGuid _
 & "</listName><updates>" & strBatchXml & "</updates></UpdateListItems></soap:Body></soap:Envelope>"

 objXMLHTTP.send strSoapBody

If objXMLHTTP.Status = 200 Then
'   Do something with response
End If

Set objXMLHTTP = Nothing

End Sub

    Maintenant je l'ai eu. C'est comment vous pouvez Ajouter des éléments à une liste sharepoint. FieldNameVar est le nom d'un Champ, vous devez mettre quelque chose (par exemple, pourrait cette Valeur 'Titre') et ValueVar est la Valeur que vous mettez dans la FieldNameVar champ.

    Je reçois une réponse d'état de 200 mais l'article que j'ai ajouté n'existe pas. Que pourriez-vous proposer?
    Il semble que cela était dû à des champs obligatoires n'étant pas donnée dans le post. Quelles modifications doivent être apportées à travailler avec de multiples champs requis?

    OriginalL'auteur AElxs