VBA - lokale Datei in einem SharePoint kopieren

[ClevEx]

Hallo VBA-Spezialisten,

ich versuche seit Tagen vergeblich einem Makro beizubringen, dass er verschiedene Dateien (*.tsv, *xlsx usw.) von einem lokalen Laufwerk in einem SharePoint-Laufwerk kopiert.

Ich hatte diese Varianten ausprobiert :
1.  FileSystemObject.copyfile "C:\Users\walter.heying\Downloads\test.tsv", "https://eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich/test.tsv"  
2.  FileSystemObject.copyfile "C:\Users\walter.heying\Downloads\test.tsv", "https://eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich/\test.tsv" 
3.  FileSystemObject.copyfile "C:\Users\walter.heying\Downloads\test.tsv", "https://eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich\test.tsv"
4.  FileCopy "C:\Users\walter.heying\Downloads\test.tsv", "https://eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich/test.tsv" 
5.  FileCopy "C:\Users\walter.heying\Downloads\test.tsv", "https://eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich/\test.tsv" 
6.  FileCopy "C:\Users\walter.heying\Downloads\test.tsv", "https://eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich\test.tsv" 
7.  FileCopy "C:\Users\walter.heying\Downloads\test.tsv", "//eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich/test.tsv" 
8.  FileCopy "C:\Users\walter.heying\Downloads\test.tsv", "//eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich/\test.tsv" 
9.  FileCopy "C:\Users\walter.heying\Downloads\test.tsv", "//eigenefirma.sharepoint.com/sites/Projekte/Shared Documents/taeglich\test.tsv" 

Leider alle ohne Erfolg. Es wurde immer eine Fehlermeldung ausgeworfen.  


Hat jemand eine Lösung?
Bin ich die Sache überhaupt richtig angegangen?

Gruß
Walter

PS:
eigenefirma steht für die Unternehmung bei der ich beschäftigt bin

[Niko]

[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
vba to upload file to sharepoint[/url]


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


Ich hoffe ich konnte damit helfen...bin auch nur ein anfänger...der Weiss das er nichts weiss.

Wünsche weiterhin viel spaß mit Excel


Danke,
Niko

[ClevEx]

Hallo Niko,

Danke für die Hilfe. Das funktioniert SUPER.
Statt einen gesamtes Verzeichnis hochzuladen benötige noch eine VBA-Möglichkeit einzelne Dateien hochzuladen. 
Kann man den Code leicht erweitern, um gezielte Dateien aus einem lokalen Laufwerk zum SharePoint hochzuladen?[
Bild bitte so als Datei hochladen: Klick mich!
]

Gruß
Walter

[schauan]

Hallöchen

fso.CopyFile "C:\Users\Name\Documents\*.xlsx", ""\\share.name.com\site\folder\"

[ClevEx]

Hallo schauan,

ich habe den Code mit angepassten Pfaden und Beispieldatei eingetragen.
Leider erhalte ich die Fehlermeldung "Laufzeitfehler '70':    Zugriff verweigert".
Ich habe keine Idee warum er den Zugriff verweigert. Das lokale Lauwerk ist ein OneDrive-Laufwerk. Ich habe auch im OneDrive-SharePoint-Laufwerk nachgesehen. Ich dachte , vielleicht bringt ein Auschecken etwas. Aber diese Dateien kann ich gar nicht auschecken.

Kannst du dir einen Reim darauf machen? Gerne können auch andere, die wissen, wie man dem Problem Herr wird sich melden.

Gruß
Walter

[schauan]

Hallöchen,

also, einen Pfad kopieren macht es ohne Fehler, bei einer Datei kommt der Zugriffsfehler?

[ClevEx]

Ja, genau.
----------------------------------------------------------------------------------------------------------
Sub DateienKopieren()
   
    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 - Zeile inaktiviert
    FSO.CopyFile FromPath & "\test.bas", ToPath

End Sub

----------------------------------------------------------------------------------------------------------
Ich verstehe das auch nicht. 
Wegen deiner Nachfrage habe ich es noch einmal durchgeführt. Mit der Folder-Zeile geht es jetzt auch nicht mehr. Ich bekomme jetzt den Laufzeitfehler -2147024672. Es muss ein Eintrag unter "vertrauenswürdige Sites" hinzugefügt werden, dass die CopyFolder-Anweisung ausgeführt wird. Für das lokalen Verzeichnis habe ich dass innerhalb von Excel gemacht, aber für das SharePoint-Laufwerk (SP-Laufwerk) lässt Excel das gar nicht zu. Auch nach der Ergänzung kommt die gleiche Fehlermeldung. Für mich das Indiz, dass das SP-Laufwerk das Problem macht.
Mein Gott, was ist das für eine sch...

Ändern sich Einstellungen, die es dann unmöglich machen Dateien zu kopieren. Was muss sich geändert haben, dass so etwas passiert? 
Hat jemand eine Lösung?

Gruß
Walter