VBA UpdateListItems SharePoint Web服务

我试图在VBA中的SharePoint列表中创建一个新任务。这里是我使用的代码：VBA UpdateListItems SharePoint Web服务

Public Sub AddToSharePoint(ByVal Title As String, ByVal URL As String) 
    Dim oSoapClient As Object 
    Const ListID As String = "{0533218A-7FD9-4A25-AB8B-640F43E99741}" 
    Const ListView As String = "{805F724A-C3BD-4F26-891F-A331A469BC35}" 

    Dim BatchXML As String 

    BatchXML = "<Batch OnError='continue' ListVersion='1' ViewName='" & ListView & "'>" 
    BatchXML = BatchXML & "<Method ID='1' Cmd='New'>" 

    BatchXML = BatchXML & "<Field Name='Title'>" & Title & "</Field>" 

    BatchXML = BatchXML & "</Method></Batch>" 

    Set oSoapClient = CreateObject("MSSOAP.SOAPClient30") 
    oSoapClient.MSSoapInit URL&"?WSDL" 

    oSoapClient.UpdateListItems ListID, BatchXML 

    Set oSoapClient = Nothing  
End Sub

工作一切良好，直到该行：

oSoapClient.UpdateListItems ListID, BatchXML

来到此行我有一个错误，说：

超过连接的最大重试次数（80004005）

我不能弄清楚这里有什么问题。在解决您的问题

来源

2012-02-29 LotuX

什么是'URL'参数的值？ – naivists 2012-02-29 17:39:12

一个第一步是看UpdateListItems函数的参数的确切性质。

=>http://msdn.microsoft.com/en-us/library/lists.lists.updatelistitems%28v=office.12%29.aspx

正如你可以看到： - 第一个参数必须是包含您的SharePoint列表的名称的字符串 - 第二个应该是组件的一个XmlNode（不只是一个String ）。

我不能帮助更多的，因为我还停留在这个问题有点远（执行错误：SoapServerException被抛出）。但是，这仍然是一个第一步;）

来源

2013-05-17 08:50:25 Glad

VBA UpdateListItems SharePoint Web服务

回答

相关问题