VBA UpdateListEMS SharePoint Web服务

我正在尝试在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

说到这一行，我有一个错误，上面写着：

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

---

我不知道这里出了什么问题。

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

=>

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

我帮不上什么忙，因为我在这个问题上还停留了一点（执行错误：引发了SoapServerException）。

---

但这仍然是第一步；）

URL

参数的值是多少？

oSoapClient.UpdateListItems ListID, BatchXML