ich möchte gerne eine Excel-Datei per VBA auf SharePoint hochladen.
Die Datei existiert dort noch nicht, d.h. sie soll neu hochgeladen bzw. gespeichert werden.
Ich habe es nach einigen Versuchen mit folgendem Code probiert, bekomme hier aber folgenden Fehler:
Mein Fehler:
Run-time error 76: Path not found
Der Debugger springt dabei auf die Zeile FS. im If Statement.
Hinweis: Der Code steht in einem Modul der Datei, die hochgeladen werden soll.
Mein Code:
Sub UploadSharePoint()
Dim SharepointAddress As String, LocalAddress As String, objNet As Object, FS As Object
' SharePoint-URL (... nur hier zum Datenschutz)
SharepointAddress = "https://.../Shared%20Documents/"
' Datei-Pfad (... nur hier zum Datenschutz)
LocalAddress = "C:\Users\...\TEST.xlsm"
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
End Sub
Vielen Dank im Voraus für Eure Hilfe, Markus