excel vba上传文件到sharepoint

Question

我正在尝试将文件夹从我的 C 驱动器上传到 SharePoint 库网站。我使用了以下代码，当 ToPath 不是 SharePoint 库站点而是 C 驱动器中的另一个文件夹时，该代码工作正常。我哪里错了？

Sub AddSharePointFiles()

Dim FSO As Object
Dim FromPath As String
Dim ToPath As String

ToPath = "https://share.name.com/site/folder/_layouts/15/start.aspx#/LibraryName/Forms/AllItems.aspx"
FromPath = "C:\Users\Name\Documents\FolderName"

Set FSO = CreateObject("scripting.filesystemobject")

FSO.CopyFile Source:=FromPath, Destination:=ToPath

End Sub

谢谢！

Answer 1

（由于我是新手，我无法在 Olly 的答案中添加评论，所以我会将我的评论放在这个新答案中。）

我注意到 SharePoint URL 以https. 因此，您需要将 UNC 路径构建为\\share.name.com@SSL\DavWWWRoot\site\library\.

需要检查的几件事：

• WebClient 服务正在运行
• SharePoint 网站在 Internet 选项中受信任

Answer 2

尝试将 Sharepoint 路径指定为 UNC，并使用以下CopyFolder方法：

Sub AddSharePointFiles()

    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String

    ToPath = "\\share.name.com\site\folder"
    FromPath = "C:\Users\Name\Documents\FolderName"

    Set FSO = CreateObject("scripting.filesystemobject")
    FSO.CopyFolder Source:=FromPath, Destination:=ToPath

End Sub