Excel VBA上传本地文件夹至SharePoint库失败问题排查

你遇到的核心问题是FileSystemObject（FSO）不支持直接通过SharePoint的网页URL进行文件操作，而且你使用的目标路径也不是SharePoint文档库的文件系统可访问路径。

具体来说：

• 你写的ToPath是SharePoint文档库的浏览器访问URL（包含_layouts/15/start.aspx#/这类网页路由），这是给浏览器用的，不是Windows文件系统能识别的路径。
• FSO的CopyFile方法只能处理本地磁盘路径，或者通过SMB协议访问的网络共享路径（比如映射的网络驱动器），无法直接解析HTTPS开头的SharePoint网页地址。

另外还有个小细节：你的FromPath指向的是文件夹，但FSO.CopyFile的Source参数需要指定具体文件或者通配符（比如C:\Users\Name\Documents\FolderName\*），直接传文件夹路径其实不符合方法要求，只是本地环境可能碰巧兼容了而已。

下面提供两种可行的解决思路：

方案1：将SharePoint文档库映射为网络驱动器 #

这是最简便的方法，把SharePoint库映射成Windows的网络驱动器，就能像操作本地文件夹一样用FSO操作它。

操作步骤： #

1. 打开Windows文件资源管理器，点击「此电脑」→「映射网络驱动器」。
2. 在「文件夹」输入框中，输入SharePoint文档库的WebDAV路径，格式通常是：https://share.name.com/site/folder/LibraryName（去掉浏览器URL里的_layouts/15/start.aspx#/部分，直接指向库的根路径）。
3. 勾选「登录时重新连接」（可选），点击完成，系统会分配一个驱动器号（比如Z:）。

修改后的VBA代码： #

Sub AddSharePointFiles()
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    
    ' 替换为映射后的网络驱动器路径
    ToPath = "Z:\"
    ' 源文件夹+通配符，指定复制所有文件
    FromPath = "C:\Users\Name\Documents\FolderName\*"
    
    Set FSO = CreateObject("scripting.filesystemobject")
    ' 可选：如果目标文件夹不存在，先创建
    If Not FSO.FolderExists(ToPath) Then
        FSO.CreateFolder ToPath
    End If
    ' 复制文件，OverWrite参数设为True可覆盖已存在文件
    FSO.CopyFile Source:=FromPath, Destination:=ToPath, OverWriteFiles:=True
    
    Set FSO = Nothing
    MsgBox "文件上传完成！"
End Sub

方案2：使用SharePoint CSOM（客户端对象模型） #

如果无法映射网络驱动器（比如企业环境权限限制），可以用SharePoint的CSOM直接在VBA中操作，这种方法更灵活，不需要依赖驱动器映射。

操作步骤： #

1. 打开VBA编辑器，点击「工具」→「引用」，勾选Microsoft SharePoint Client和Microsoft SharePoint Client Runtime（如果找不到，可以用后期绑定）。
2. 使用以下代码上传文件：

Sub UploadToSharePointCSOM()
    Dim siteUrl As String
    Dim libraryName As String
    Dim localFolderPath As String
    
    siteUrl = "https://share.name.com/site/folder"
    libraryName = "LibraryName"
    localFolderPath = "C:\Users\Name\Documents\FolderName"
    
    ' 初始化CSOM上下文
    Dim ctx As Object
    Set ctx = CreateObject("Microsoft.SharePoint.Client.ClientContext")
    ctx.SiteUrl = siteUrl
    ' 如果需要手动验证账号，可添加以下代码（替换为你的账号信息）
    ' ctx.Credentials = CreateObject("System.Net.NetworkCredential")
    ' ctx.Credentials.UserName = "yourusername"
    ' ctx.Credentials.Password = "yourpassword"
    
    ' 获取目标文档库
    Dim library As Object
    Set library = ctx.Web.Lists.GetByTitle(libraryName)
    ctx.Load(library)
    ctx.ExecuteQuery
    
    ' 遍历本地文件夹的所有文件
    Dim FSO As Object
    Dim folder As Object
    Dim file As Object
    
    Set FSO = CreateObject("scripting.filesystemobject")
    Set folder = FSO.GetFolder(localFolderPath)
    
    For Each file In folder.Files
        ' 读取本地文件内容
        Dim fileStream As Object
        Set fileStream = CreateObject("ADODB.Stream")
        fileStream.Type = 1 ' 设置为二进制类型
        fileStream.Open
        fileStream.LoadFromFile file.Path
        
        ' 上传到SharePoint文档库
        Dim newFile As Object
        Set newFile = library.RootFolder.Files.Add(file.Name, fileStream, True)
        ctx.Load(newFile)
        ctx.ExecuteQuery
        
        fileStream.Close
        Set fileStream = Nothing
    Next file
    
    Set FSO = Nothing
    Set ctx = Nothing
    MsgBox "文件上传完成！"
End Sub

• 无论用哪种方法，都要确保你的账号拥有SharePoint文档库的写入权限。
• 如果是映射驱动器，部分企业环境可能禁用WebDAV，这时CSOM会是更可靠的选择。
• 使用FSO复制文件时，一定要用通配符指定要复制的文件，避免路径格式错误。

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