我使用Excel VBA使用SOAP请求获取SharePoint列表。
我能够获取所有记录。
如何获取具有特定卷号的名称?
以下是Excel VBA代码段。
Public Function retrieveSharepoint()
Dim currentId As String, ACP As String, DL As String
Dim returnedRow As Object
Dim setNode As Object
Dim sURL As String
Dim sEnv As String
Dim xmlhtp As New MSXML2.XMLHTTP60
Dim xmlDoc As New DOMDocument60
sURL = "https://sites.com/sites/project/project_ext/_vti_bin/lists.asmx"
sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap12=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & " <soap12:Body>"
sEnv = sEnv & " <GetListItems xmlns=""http://schemas.microsoft.com/sharepoint/soap/"">"
sEnv = sEnv & " <listName>{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxx}</listName>"
sEnv = sEnv & " </GetListItems>"
sEnv = sEnv & " </soap12:Body>"
sEnv = sEnv & "</soap12:Envelope>"
With xmlhtp
.Open "post", sURL, False
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.setRequestHeader "soapAction", "http://schemas.microsoft.com/sharepoint/soap/GetListItems"
.send sEnv
xmlDoc.LoadXML (.responseText)
For Each returnedRow In .responseXML.getElementsByTagName("z:row")
currentId = returnedRow.getAttribute("ows_Roll_x0020_Number")
ACP = returnedRow.getAttribute("ows_Name")
DL = returnedRow.getAttribute("ows_Last_x0020_Name")
Next
MsgBox .responseText
End With
End Function
目前我可以获取所有记录。
只需使用Query
元素:
/编辑
好的,我已经检查过Postman,并且正确的SOAP XML就是例如:
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<soapenv:Body>
<GetListItems xmlns="http://schemas.microsoft.com/sharepoint/soap/">
<listName>{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxx}</listName>
<query>
<Query>
<Where>
<Eq>
<FieldRef Name='ID' />
<Value Type='Number'>260</Value>
</Eq>
</Where>
</Query>
</query>
</GetListItems>
</soapenv:Body>
</soapenv:Envelope>
所以,你的代码应该是这样的:
sEnv = sEnv & " <listName>{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxx}</listName>"
sEnv = sEnv & " <query><Query><Where><Eq><FieldRef Name='Roll_x0020_Number' /><Value Type='Number'>#YOUR NUMBER#</Value></Eq></Where></Query></query>"
补充参考:Lists.GetListItems