是否可以通过VBA检查sharepoint站点上是否存在文件？

Question

我正在尝试编写一个Excel(2010)宏,在某些时候必须确认在公司sharepoint站点上存在某个文件(doc/pdf).可以通过Internet Explorer访问该文件(授予用户所有权限).我有一个直接链接到该文件.我不需要打开它,只需检查它是否在那里.

如果这是一个本地文件,我会使用Dir()来检查文件是否存在.但是,这不适用于URI.

我通过objHttp尝试了一种基于GET的方法,但我收到的唯一响应是一个wepage,声明"我无权查看此页面"[在标签中].

这有可能吗？

Answer 1

试一试：

Function checkFile(URLStr As String) As Boolean
    Dim oHttpRequest As Object
    Set oHttpRequest = New MSXML2.XMLHTTP60
    With oHttpRequest
        .Open "GET", URLStr, False, [Username], [Password]
        .setRequestHeader "Cache-Control", "no-cache"
        .setRequestHeader "Pragma", "no-cache"
        .setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
        .send
    End With
    If oHttpRequest.Status = 200 Then
        checkFile = True
    Else
        checkFile = False
    End If
End Function

URLStr应该类似于“http://sharepoint/site/user.xlsx”。在行中输入您的用户名/密码.Open以将其传递到站点，这应该适用于任何 URI（例如，我正在针对 .xlsx 文件进行测试）。我应该指出，在我的内部 SharePoint 网站上，我不需要传递 UN/PW 来运行此函数，因此如果您最终遇到这种情况，只需从调用中删除这些参数即可.Open。另外，所有标头内容可能都不是必需的，但我总是将它们放在我的请求中，所以我将它们保留在其中。