Datei läßt sich nicht öffnen
15.02.2022 16:48:14
Fred
ich habe von Michael ein Makro erhalten, welches mir von einer Webseite eine "xlsx" runterladen soll.
Das Makro funktioniert anscheinend "schnörkellos".
Allerdings läßt sich die Datei nicht öffnen,- hat auch weniger kb als wenn ich diese "händisch" von der Webseite down loade ...
Kann ein Experte mal bitte auf das Makro schauen und eventuellen Fehler korrigieren.
Sub DownloadFile()
Dim myURL As String
myURL = "https://inplayguru.com/strategies/167305/history/InPlayGuru_Strategy_167305_Picks.xlsx"
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "woppelx@gmail.com", "Hannover1896"
WinHttpReq.send
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile "C:\Users\Fred Neumann\Desktop\inplayGURU\InPlayGuru_Strategy_167305_Picks.xlsx", 2 ' 1 = no overwrite, 2 = overwrite
oStream.Close
End If
End Sub
https://www.herber.de/bbs/user/151150.xlsx
Gruss Fred