excel vba to upload file to sharepoint

Question

I am trying to upload a folder from my C drive to a SharePoint library site. I have used the below code, which works fine when the ToPath is not a SharePoint library site but another folder from my C drive. Where am I going wrong?

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

Thank you!

shA.t · Accepted Answer · 2022-01-09 12:51:13Z

12

I noticed that the SharePoint URL starts with https. As such, you'll need to construct your UNC path as \\share.name.com@SSL\DavWWWRoot\site\library\.

A few things to check:

WebClient service is running
The SharePoint site is trusted in Internet Options

edited Jan 9, 2022 at 12:51

shA.t

17.1k5 gold badges59 silver badges121 bronze badges

answered May 24, 2018 at 17:39

wonderwalrus

1613 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

seadoggie01 Over a year ago

This should be the selected answer. We've been hunting this down for so long. You are amazing. Thank you!!!

Olly · Accepted Answer · 2018-05-24 15:13:43Z

2

Try specifying the Sharepoint path as UNC, and using the CopyFolder method:

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

edited May 24, 2018 at 15:13

answered May 24, 2018 at 14:04

Olly

7,9021 gold badge23 silver badges39 bronze badges

3 Comments

JBJB Over a year ago

No luck with that - it still says it doesn't exist

Olly Over a year ago

Have you included the filename with the path, in the Destination?

Olly Over a year ago

Answer edited - realised you want to copy the folder, not just a file - so try the CopyFolder method.

marc_s · Accepted Answer · 2021-08-31 19:00:24Z

0

The solution for me was using:

Folder = Environ("USERPROFILE")

This gave me the name of the computer, then I filled the rest manually

Folder = Environ("USERPROFILE") & "\Business\Administration\Documents"

It worked though I don´t think is an elegant solution.

edited Aug 31, 2021 at 19:00

marc_s

760k186 gold badges1.4k silver badges1.5k bronze badges

answered Jul 6, 2021 at 16:45

Alex

1

Collectives™ on Stack Overflow

excel vba to upload file to sharepoint

3 Answers 3

1 Comment

3 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

1 Comment

3 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related