Datei in einem Sharepoint mit VBA speichern
03.06.2024 16:05:09
Thomas
ich möchte mittels VBA aus einer Exceldatei raus Dateien in einem Sharepoint speichern, allerdings bekomme ich es nicht hin, leider auch nicht mit google oder GPT, so hoffe ich das ihr mir helfen könnt.
Um den Pfad dynamisch zu erstellen, durchlaufe ich das Verzeichnis wo die Dateien liegen und hole mir über "Mid" den Teil den ich aus dem Dateinamen brauche um mit diesem dann in einer Suchtabelle ("Verzeichnis") den korrekten Namen zu suchen und dann an den Sharepoint pfad dran zu hängen.
Ich bekomme dann aber immer hier
fso.CopyFile quelleDatei, sharePointURL & "/" & quelleDateiWas muss ich ändern um in dem Sharepoint speichern zu können?
Danke
Sub DateienKopierenUndInSharePointSpeichern()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim sharePointURL As String
Dim rngGefunden As Range
Dim quelleVerzeichnis As String
quelleVerzeichnis = ThisWorkbook.Path & "/PDF/"
Dim filePart As String
Dim quelleDatei As Object
Dim zielVerzeichnis As String
' Arbeitsblatt "Verzeichnis" festlegen
Dim wsVerzeichnis As Worksheet
Set wsVerzeichnis = ThisWorkbook.Worksheets("Verzeichnis")
' Durchsuche das Quellverzeichnis nach Dateien
For Each quelleDatei In fso.GetFolder(quelleVerzeichnis).Files
' Suche den Dateinamen in Spalte A der Tabelle "Verzeichnis"
filePart = Mid(quelleDatei.Name, InStrRev(quelleDatei.Name, "-") + 1, InStr(quelleDatei.Name, ".") - InStrRev(quelleDatei.Name, "-") - 1)
Set rngGefunden = wsVerzeichnis.Columns("A").Find(What:=filePart, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngGefunden Is Nothing Then
' Zielverzeichnis aus Spalte B der Tabelle "Verzeichnis" abrufen
zielVerzeichnis = rngGefunden.Offset(0, 1).Value & "/Test/"
sharePointURL = "https://mx.sharepoint.com/sites/Test/zifische%20Angelten/" & zielVerzeichnis
fso.CopyFile quelleDatei, sharePointURL & "/" & quelleDatei
End If
Next quelleDatei
MsgBox "Die Dateien wurden kopiert und im SharePoint gespeichert."
End Sub
Anzeige
