Question

我正在尝试在VBA中的SharePoint列表中创建新任务。这是我正在使用的代码：

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）

我无法弄清楚这里有什么问题。

Answer 1

解决问题的第一步是查看UpdateListItems函数参数的确切性质。

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

如你所见： - 第一个参数必须是包含Sharepoint List名称的字符串 - 第二个应该是组件的XMLNode（而不仅仅是String）。

我无法忍受更多，因为我也更加坚持这个问题（执行错误：抛出了SoapServerException）。但这仍然是第一步;）

VBA UpdateListItems SharePoint WebService

1 个答案: