von Webseite Datei down loaden

Hallo Excel-Profis,
ich bin auf eine Webseite gestoßen, die u.a. das überprüfen von Wettstrategien in Echtzeit ermöglicht. Kurz gefasst: In Live-Spielen werden Daten nach Kriterien u.a. in einer xlsx gesammelt. Diese sich ständig ergänzende Arbeitsmappe steht stets zum download bereit und kann in Excel entsprechend ausgewertet werden.
Meine Vorstellungen:
Ich bin auf dieser Webseite bereits eingeloggt
Von Excel-VBA wird die gewünschte Datei in meinen Ordner importiert,- falls der Dateiname bereits existiert, soll überschrieben werden.
Erklärung:
Durch das vorherige Einloggen wird sicherlich das Makro etwas weniger kompliziert. Die gesuchte Datei ist unter https://inplayguru.com/strategies/167305/history zu finden. Dort befindet sich u.a. der Button Download mit drei Format-Angeboten (Excel, CSV und OpenOffice). Die Datei heißt InPlayGuru_Strategy_167305_Picks und soll unter C:\Users\Fred Neumann\Desktop\inplayGURU\InPlayGuru_Strategy_167305_Picks.xlsx gespeichert werden.
Es handelt sich um einen kostenfreien Testaccount für die Dauer von 7 Tagen.
Zum Einloggen: https://inplayguru.com/login
E-Mail-Adress : woppelx@gmail.com
Password : Hannover1896
Die gesuchte Datei: https://inplayguru.com/strategies/167305/history
Meine Frage:
Kann mir bitte ein Excel Experte entsprechendes Makro erstellen?!
Gruss
Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Fred,
soll das Makro mehr können, als die Datei runterzuladen und abzuspeichern? Wie wäre es dann mit diesem Codebeispiel:
https://stackoverflow.com/questions/17877389/how-do-i-download-a-file-using-vba-without-internet-explorer
Ich verstehe den Code nicht wirklich, konnte ihn aber so anpassen, dass ich eine Datei von unserer Webseite (der Firma, bei der ich arbeite) herunterladen und öffnen konnte.
Für Dich angepasst, ist das hier wahrscheinlich gar nicht so weit vom Ziel entfernt. Eine Datei hatte ich, sie ließ sich aber nicht öffnen...


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

Viele Grüße
Michael

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 Public Sub download2() Dim dieUrl As String Dim dasZiel As String Dim myResult dieUrl = "https://inplayguru.com/strategies/167305/history/export/xlsx/InPlayGuru_Strategy_167305_Picks.xlsx" dasZiel = "C:\Users\Fred Neumann\Desktop\inplayGURU\zzzzzzzz10.xlsx" myResult = URLDownloadToFile(0, dieUrl, dasZiel, 0, 0) End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

von Webseite Datei down loaden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread