Datei auf Sharepoint hochladen: VBA

Question

Wenn ich den folgenden Code verwende, wird keine Datei in den Sharepoint kopiert, aber der Code zeigt keinen Fehler. Kann mir hier jemand helfen?

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 

Answer 1

Versuchen unten genannten Leistungs Shell Schritte Ihr Dokument zu laden, oder versuchen zu kopieren und Ihre Dokumente per Explorer-Ansicht

$WebURL = <site url(http://portal.contoso.com/sites/stuff)> 
$DocLibName = "<document library name>" 
$FilePath = "file path(your local machine)" 
$Web = Get-SPWeb $WebURL 
$List = $Web.GetFolder($DocLibName) 
$Files = $List.Files`enter code here` 
$FileName = $FilePath.Substring($FilePath.LastIndexOf("\")+1) 
$File= Get-ChildItem $FilePath 
$Files.Add($DocLibName +"/" + $FileName,$File.OpenRead(),$false) 
$web.Dispose() 

Answer 2

Abhilfe 1 (Shell verwenden, um in WebDav dir kopieren):

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" 

Abhilfe 2:

Verwendung vba Shell mit einiger Konsolenanwendung, es zu tun witho ut Netto-Laufwerk zum Beispiel WinSCP oder DavCopy oder Locken oder sogar Powershell (siehe more)