3

更新：

好的，现在解决了。代码确实有效，但 Sharepoint 服务器上的权限却出错了。所以这是一种解脱。

我正在使用 VBA 通过其 Web 服务从 Excel 向 Sharepoint 发送请求。这是在公司 Intranet 上，所以我的理解是，只要我使用 Windows 登录名访问 Sharepoint（我这样做），Windows 身份验证就应该在后台进行。我已检查身份验证模式是否设置为“Windows”。但是当我尝试这个时，我仍然收到“拒绝访问”错误。

这是我要发送的 XML：

<?xml version="1.0" encoding="utf-8" ?>
    <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
      <soap12:Body>
        <UpdateListItems xmlns="http://schemas.microsoft.com/sharepoint/soap/">
          <listName>listname1</listName> 
          <updates>
            <Batch OnError='continue' ListVersion='1'>
            <Method ID='1' Cmd='Delete'>
                <Field Name='ID'>7582</Field>
            </Method>
            </Batch>
            </updates>
        </UpdateListItems>
      </soap12:Body>
    </soap12:Envelope>

我尝试在 Soap 标头中发送用户名和密码，因此：

      <soap12:Header>
        <AuthHeader xmlns="http://schemas.microsoft.com/sharepoint/soap/">
          <UserName>user1</UserName>
          <Password>password1</Password>
        </AuthHeader>
      </soap12:Header>

没区别。

Sharepoint 向我发送的返回消息确实包含一些不允许我删除的数据，因此我知道我正在设法连接到正确的站点。而且我确实有权从该站点删除。

这是我用来发送 XML 的 VBA（从 StackOverflow 上的其他地方复制）：

Dim xmlhtp As New MSXML2.XMLHTTP
Dim XMLDOC As New DOMDocument
Dim XMLstr As String
With xmlhtp
    .Open "POST", "https://sharepoint.address/_vti_bin/lists.asmx", False
    .setRequestHeader "Host", "sharepoint.address/site1823/Lists/HC Movement"
    .setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8"
    .send XMLstr

    XMLDOC.LoadXML .responseText
    MsgBox .responseText
End With

将“HC 运动”替换为“HC%20Movement”没有任何区别。

我不在乎这是否在后台无缝发生：如果用户必须输入他们的凭据，那就这样吧。如果有人有一个完全不同于我目前所得到的解决方案，那也没关系。只需要能够从 Excel 中删除和添加记录到 Sharepoint，并且已经在它上面碰壁了好几天。

我很擅长 VBA，但以前从未使用过 Web 服务。任何帮助将不胜感激。

谢谢。

4

1 回答 1

1

使用 .Net，您可以传递用户的凭据，但我还没有找到使用 VBA 的方法（还）。如果您不介意让您的用户输入他们的用户名/密码，我现在会走这条路。创建一个用户表单，其中包含一个用于用户名的文本框和一个用于密码的屏蔽文本框。如果需要，您甚至可以预先填写用户名：

Dim myUser As String
myUser = Environ("USERNAME")

然后将输入的值传递给您的 Web 请求。更改 .Open 命令以包含变量（例如 myUsername 和 myPassword）：

.Open "POST", "https://sharepoint.address/_vti_bin/lists.asmx", False, myUsername, myPassword

为不正确的密码创建一个错误捕获并完成。

我会继续寻找一种方法来传递登录用户的凭据（或者如果其他人找到了一种方法......）。

于 2013-07-18T13:13:20.033 回答