使用VBA将数据添加到Excel中的Sharepoint 2013列表

我一直在尝试使用VBA将数据添加到Excel中的Sharepoint 2013列表中，但没有成功。我正在使用遍布互联网的示例。使用VBA将数据添加到Excel中的Sharepoint 2013列表

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

因为我是新来的使用XML和SOAP，我决定向后工作，只是尝试将一个项目添加到列表中。我没有从表格中获取数据的问题。我不会将任何参数传递给sub，我只是分配值。

我没有收到任何错误。但是没有数据被写入到列表中。我甚至得到200的状态 - 这仅仅意味着“确定”。我甚至试图从列表名称或URL中取出一些字符，看看是否会给出错误，但我仍然得到200的状态。

如果我使用Msxml2.ServerXMLHTTP而不是Msxml2.XMLHTTP我得到状态为401.有什么办法可以强制执行错误，以便我可以看到我需要更正以使其正常工作吗？

以下是我与合作（希望我删除任何敏感信息）：

Sub Add_Item() 

' Hard coding the parameters to start so just testing the output to SharePoint 
Dim ListName As String 
Dim SharepointUrl As String 
Dim Branch_Cost_Center As String 
Dim Field1NameVar 
ListName = "Nightly Device Tracking Excel XML Test" 
SharepointUrl = "https://{myurl}" 
Field1NameVar = "Branch Cost Center" 
Branch_Cost_Center = "919191" 
' Remove the above when passing parameters 

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=" + Field1NameVar + ">" + Branch_Cost_Center + "</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>" 

'for debugging 
Debug.Print strSoapBody 

objXMLHTTP.send strSoapBody 

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

Set objXMLHTTP = Nothing 

End Sub

我一直在使用的内部名称为外地和GUID，而不是在结果没有差异列表名称尝试。

我在objXMLHTTP上设置了一个监视变量，但不知道要查找什么 - 有很多返回的信息。

来源

2017-03-07 Matt Sims

你的字段名需要有他们周围的单引号：

Field1NameVar = "'Branch Cost Center'"

来源

2017-04-07 00:17:05

使用VBA将数据添加到Excel中的Sharepoint 2013列表

回答

相关问题