VBA检查SharePoint站点文件是否存在报错问题求助

首先，你的代码里用Dir()函数直接处理SharePoint的HTTP/HTTPS路径是问题根源——Dir()函数只支持本地文件系统、映射网络驱动器（UNC路径），对SharePoint的Web路径（比如https://your-site.sharepoint.com/...）完全不兼容，这就是你遇到「Bad file name or number」错误的原因。

下面给你两种可行的修正方案，根据你的SharePoint路径类型选择：

方案1：使用UNC路径 + FileSystemObject（适合可映射的SharePoint站点） #

如果你的SharePoint站点可以被映射为网络驱动器，先把HTTP路径转换成UNC格式：

• 原HTTP路径示例：https://contoso.sharepoint.com/sites/MySite/Documents/Report_2024.xlsx
• 转换后的UNC路径：\\contoso.sharepoint.com@SSL\DavWWWRoot\sites\MySite\Documents\Report_2024.xlsx

然后用FileSystemObject来检查文件是否存在，代码如下：

Sub CheckSharePointFile_FileSystem()
    Dim fileName As String
    ' 替换成你的SharePoint UNC路径
    fileName = "\\contoso.sharepoint.com@SSL\DavWWWRoot\sites\MySite\Documents\Report_2024.xlsx"
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If fso.FileExists(fileName) Then
        MsgBox "File already exists on SharePoint site"
        Exit Sub
    Else
        MsgBox "File does not exist, you can save it"
    End If
    
    Set fso = Nothing
End Sub

方案2：使用XMLHTTP请求（支持HTTP/HTTPS路径） #

如果无法使用UNC路径，直接通过Web请求检查文件的存在性，发送HEAD请求获取响应状态码：

• 状态码200：文件存在
• 状态码404：文件不存在

代码示例：

Sub CheckSharePointFile_WebRequest()
    Dim fileName As String
    ' 替换成你的SharePoint HTTP/HTTPS路径
    fileName = "https://contoso.sharepoint.com/sites/MySite/Documents/Report_2024.xlsx"
    
    Dim xhr As Object
    Set xhr = CreateObject("MSXML2.XMLHTTP.6.0")
    
    On Error Resume Next ' 捕获请求异常
    xhr.Open "HEAD", fileName, False
    xhr.Send
    
    If Err.Number <> 0 Then
        MsgBox "Failed to connect to SharePoint site"
        Set xhr = Nothing
        Exit Sub
    End If
    
    On Error GoTo 0
    
    If xhr.Status = 200 Then
        MsgBox "File already exists on SharePoint site"
    ElseIf xhr.Status = 404 Then
        MsgBox "File does not exist, you can save it"
    Else
        MsgBox "Unexpected status: " & xhr.Status & " - " & xhr.StatusText
    End If
    
    Set xhr = Nothing
End Sub

额外注意事项 #

• 确保你有该SharePoint文档库的访问权限，否则请求会返回401（未授权）或403（禁止访问）状态码
• 如果你的SharePoint是基于Office 365的，部分环境可能需要处理身份验证，这时可以考虑使用Microsoft.SharePoint.Client库（需要引用SharePoint Client组件），但上面的两种方法已经覆盖大多数普通场景

内容的提问来源于stack exchange，提问作者drummingexcel