Excel通过VBA将本地文件保存到SharePoint文件夹报路径错误

核心错误原因定位 #

你当前代码返回路径错误，90%以上的情况是SharePoint的WebDAV UNC路径格式写错了，其次是系统依赖服务未启动、权限未配置导致的连接失败。 #

第一步：基础环境校验 #

• 校验WebClient服务状态：按Win+R输入services.msc打开服务列表，找到WebClient服务，将启动类型设为「自动」，手动启动该服务。FSO走UNC路径复制文件到SharePoint完全依赖这个服务提供的WebDAV协议支持，服务未启动时必然返回路径不存在错误。
• 手动验证路径可用性：你当前写的\\companyname.sharepoint.com\sites\Team\Shared Documents\img\是错误格式，正确的WebDAV UNC路径必须带上@SSL\DavWWWRoot段，完整格式为\\companyname.sharepoint.com@SSL\DavWWWRoot\sites\Team\Shared Documents\img\。把修正后的路径粘贴到Windows资源管理器地址栏回车，能正常打开文档库目录、看到已有文件才说明路径有效；如果弹出身份验证框，输入你的企业域账号密码，勾选「记住我的凭据」，避免VBA运行时卡在认证环节。
• 检查SharePoint库配置：确认目标文档库没有强制要求签出、没有设置必填元数据字段，否则文件复制到库时会被拦截，也会抛出路径/权限类错误。

第二步：修正后的基础实现代码 #

你原有代码中创建的WScript.Network对象没有实际调用，属于冗余代码可以直接删除，修正后代码如下：

Dim SharepointAddress As String
Dim LocalAddress As String
Dim FS As Object

' 注意路径必须带@SSL\DavWWWRoot段，末尾必须加反斜杠
SharepointAddress = "\\companyname.sharepoint.com@SSL\DavWWWRoot\sites\Team\Shared Documents\img\"
LocalAddress = "C:\folder\exp.jpg"
Set FS = CreateObject("Scripting.FileSystemObject")

If FS.FileExists(LocalAddress) Then
    On Error Resume Next ' 捕获复制环节错误
    FS.CopyFile LocalAddress, SharepointAddress, True ' 第三个参数设为True允许覆盖同名文件
    If Err.Number <> 0 Then
        MsgBox "上传失败，错误号：" & Err.Number & "，错误原因：" & Err.Description
        Err.Clear
    Else
        MsgBox "文件上传成功"
    End If
    On Error GoTo 0
End If

Set FS = Nothing

备选方案（UNC直连失败时使用） #

如果企业组策略禁止直接访问WebDAV UNC路径，可以用映射网络驱动器的方式中转，兼容性更强，代码如下：

Dim SharepointAddress As String
Dim LocalAddress As String
Dim objNet As Object
Dim FS As Object
Dim DriveLetter As String

DriveLetter = "Z:" ' 选一个没被占用的盘符
SharepointAddress = "\\companyname.sharepoint.com@SSL\DavWWWRoot\sites\Team\Shared Documents\img\"
LocalAddress = "C:\folder\exp.jpg"

Set objNet = CreateObject("WScript.Network")
Set FS = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
' 先删除可能存在的同名盘映射，避免冲突
objNet.RemoveNetworkDrive DriveLetter, True, True
Err.Clear
' 建立映射
objNet.MapNetworkDrive DriveLetter, SharepointAddress, True
If Err.Number <> 0 Then
    MsgBox "映射SharePoint路径失败，请检查账号权限与网络连接"
    GoTo Cleanup
End If

If FS.FileExists(LocalAddress) Then
    FS.CopyFile LocalAddress, DriveLetter & "\", True
    If Err.Number <> 0 Then
        MsgBox "文件复制失败：" & Err.Description
        Err.Clear
    Else
        MsgBox "上传成功"
    End If
End If

Cleanup:
' 删除映射盘，清理资源
objNet.RemoveNetworkDrive DriveLetter, True, True
Set objNet = Nothing
Set FS = Nothing
On Error GoTo 0

常见避坑点 #

• 目标路径末尾必须加反斜杠\，否则FSO会把目标路径识别为文件而非目录，直接抛出路径不存在错误。
• 要上传的本地文件如果被其他进程占用（比如正被图像查看器、PDF阅读器打开），会导致复制失败，上传前先关闭占用文件的程序。
• 如果你的SharePoint是国内世纪互联运营版本，路径域名要对应改成companyname.sharepoint.cn，不要用.com后缀。

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