Download einer Excel-Mappe von Sharepoin
22.09.2021 15:37:17
Sharepoin
meine Herausforderung besteht im Kopieren einer Excel-Arbeitsmappe die in einem Sharepoint liegt in ein lokales Verzeichnis.
Den folgenden Code hab' ich im Netz gefunden:
Private Declare PtrSafe 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 DownloadFileFromWeb()
Dim i As Integer
Const strUrl As String = "https://abc.sharepoint.com/sites/xxx/Freigegebene%20Dokumente/H1.xlsm"
Dim strSavePath As String
Dim returnValue As Long
strSavePath = "D:\Dropbox\...\Hugo.xlsm"
returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
Debug.Print returnValue
End Sub
Bei meinem Versuch erhalte ich zwar die 0 als returnValue ... die Mappe die bei mir lokal ankommt ist aber nur 4 kB groß und lässt sich nicht öffnen :-(
Habt Ihr eine Idee meinen Tag zu retten?
Vielen Dank dafür und sonnige Grüße
Peter
Anzeige