Upload file to sharepoint : VBA

Question

When I use the below code, no file is copied into the sharepoint, but the code does not show an error. Can someone help me here ?

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

SharepointAddress= "\\xxxx\sites\xxx\xxx"            
' Where you will enter your location path
LocalAddress = "yourfile path\test.xlsx"                                    
' Where you will enter the file path, e.g.: Excel file
Set objNet = CreateObject("WScript.Network")
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FileExists(LocalAddress) Then
FS.CopyFile LocalAddress, SharepointAddress
End If
Set objNet = Nothing
Set FS = Nothing

can someone suggest some alternative method or help me solve this query — Nikhil Rathod, Jul 15 '16 at 09:59
If this doesn't throw an error, are you sure that you are using the right path? — Benno Grimm, Jul 15 '16 at 10:07
Yes benno..the file path is right ..Do I need to specify the name of the file while giving the local address path ? — Nikhil Rathod, Jul 15 '16 at 10:11

score 0 · Answer 1 · edited May 23 '17 at 11:44

0

workaround 1 (use Shell to copy into WebDav dir):

Shell "cmd.exe /k net use x: http://spsite/doclib"
Shell "cmd.exe /k copy c:\file.doc x:"
Shell "cmd.exe /k net use x: /delete"

workaround 2:

use vba Shell with some console app to do it without net drive for example WinSCP or DavCopy or Curl or even PowerShell (see more)

edited May 23 '17 at 11:44

Community

1
1

answered Jul 19 '16 at 11:37

SalientBrain

2,431
16
18

Upload file to sharepoint : VBA

1 Answers1