Als Antwort auf diesen Beitrag
z.B.
hier muss aber der Zugriff/Auth auf Sharepoint schon über die Windows/Benutzer Anmeldung (z.B. Auch Citrix) erfolgt sien..
Sub DownloadFile()
Dim url As String, target As String
Dim http As Object, stream As Object
url = "https://tenant.sharepoint.com/sites/DeineSite/Freigegebene%20Dokumente/Test.xlsx"
target = "C:\Temp\Test.xlsx"
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", url, False
http.Send
If http.Status = 200 Then
Set stream = CreateObject("ADODB.Stream")
stream.Type = 1 'binary
stream.Open
stream.Write http.responseBody
stream.SaveToFile target, 2 'overwrite
stream.Close
Else
MsgBox "Fehler: HTTP " & http.Status & vbCrLf & http.responseText
End If
End Sub
Für modernes SharePoint Online ist der stabilere Weg über Microsoft Graph