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

(я не могу добавлять комментарии к ответу Олли, поскольку я новичок, поэтому я добавлю свои комментарии в этот новый ответ.)

Я заметил, что URL-адрес SharePoint начинается с https.Таким образом, вам нужно будет создать свой путь UNC как \\share.name.com@SSL\DavWWWRoot\site\library\.

Несколько вещей для проверки:

• Служба WebClient работает
• SharePointсайту доверяют в настройках Интернета

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