von tidl2 » 09. Okt 2019, 14:59
Hallo knobbi38,
super läuft. Bekomme so die Datei kopiert.
Nun hätte ich noch eine kleine Frage. Wenn die Datei bereits da ist bekomme ich eine Fehlermeldung, dass er nicht überschreiben kann. Allerdings sollen die Dateien immer überschrieben werden.
kann man das noch einbauen?
Sub DownloadFromSharepoint()
Dim myURL As String
myURL = "https://SharepointLink_zum_File"
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile ("C:\Test\test.txt")
oStream.Close
End If
End Sub
Hallo knobbi38,
super läuft. Bekomme so die Datei kopiert.
Nun hätte ich noch eine kleine Frage. Wenn die Datei bereits da ist bekomme ich eine Fehlermeldung, dass er nicht überschreiben kann. Allerdings sollen die Dateien immer überschrieben werden.
kann man das noch einbauen?
Sub DownloadFromSharepoint()
Dim myURL As String
myURL = "https://SharepointLink_zum_File"
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile ("C:\Test\test.txt")
oStream.Close
End If
End Sub