Hallo,

ich möchte mittels vba Dateien aus einem Sharepoint herunterladen. Leider bekomme ich das nicht hin. Ich suche seit Tagen im Internet.

Einen Code habe ich gefunden (siehe unten) Leider ist die kopierte Datei nur 4k groß. D.h. die Datei ist kaputt.

Kann mir jemand helfen beim Erstellen eines solchen codes?

Da die Daten später in einer Access DB ausgewertet werden, würde ich auch gerne das Kopieren über Access2010 VBA realisieren.

Vielen Dank im voraus.

Option Compare Database
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
                                          "URLDownloadToFileA" ( _
                                           ByVal pCaller As Long, ByVal szURL As String, _
                                           ByVal szFileName As String, _
                                           ByVal dwReserved As Long, _
                                           ByVal lpfnCB As Long) As Long
Sub DownloadFromSharepoint_DB()

Dim strXls As String
Const strURL As String = "Sharepointlink"

DownloadFileFromSharePoint strURL
strXls = "File"

End Sub

Sub DownloadFileFromSharePoint(strURL As String)

Dim i As Integer
Dim strSavePath As String
Dim returnValue As Long

    strSavePath = "File"
    returnValue = URLDownloadToFile(0, strURL, strSavePath, 0, 0)
End Sub