Http Request / Link nicht vorhanden

Sub HttpRequest() ' Unix Datum (Daten) festlegen Dim Startdatum As Date Dim Enddatum As Date Dim UnixStart As Long Dim UnixEnd As Long Startdatum = "1.1." & Year(Date) - 10 UnixStart = DateDiff("d", "1.1.1970", Startdatum) * 86400 Enddatum = Date UnixEnd = DateDiff("d", "1.1.1970", Enddatum) * 86400 ' Http Request erzeugen Dim xml As Object Dim Ticker As String Ticker = "DAI.DE" Set xml = CreateObject("MSXML2.XMLHTTP.6.0") xml.Open "GET", "https://de.finance.yahoo.com/quote/" & Ticker & "/history?period1=" & _ UnixStart & "&period2=" & UnixEnd & "&interval=div%7Csplit&filter=div&frequency=1d", False Debug.Print "https://de.finance.yahoo.com/quote/" & Ticker & "/history?period1=" & UnixStart & " _ &period2=" & UnixEnd & "&interval=div%7Csplit&filter=div&frequency=1d" xml.send Dim html As Object Set html = CreateObject("htmlfile") html.body.innerHTML = xml.responseText ' Downloadlink für Dividenden suchen Dim yy As Long Dim Url2 As String For yy = 0 To html.Links.Length - 1 If InStr(1, html.Links(yy).href, "div&crumb") > 0 Then Url2 = html.Links(yy).href End If Next yy Debug.Print Url2 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Morgen Sven,
für mich klang das zunächst so als wärst Du nicht sicher ob beide die gleiche Browser-Engine verwenden aber wenn dem so ist dann ist mein Vorhaben den Link zu bekommen natürlich hinfällig.
Allerdings kam mir noch ein letzter Gedanke jetzt. Und zwar dürfte der Link immer nach dem gleichen Schema aufgebaut sein. Ich sehe, dass der Link sowohl Startdatum, Enddatum als auch Dividendenintervall enthält. Wenn ich den Link für meine Anfragen dynamisch anpasse und in den Http-Request packe sollte ich die csv-Datei ziehen können oder?
Allerdings weiß ich nicht welche xml-Methode ich verwenden muss um die csv-Datei dann in ein Workbook zu bekommen. Folgendes würde ich vermuten:

Dim WB2 As Workbook
Set WB2 = Workbooks.Open(xml.responseStream)

Sub HttpRequest() ' Http Request erzeugen Dim xml As Object Set xml = CreateObject("MSXML2.ServerXMLHTTP.6.0") xml.Open "Get", "https://query1.finance.yahoo.com/v7/finance/download/DAI.DE?period1=1403474400& _ period2=1561240800&interval=1d&events=div&crumb=43WnmWAcccz", False xml.send Dim fs, a Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("E:\daimler.txt", True) a.WriteLine (xml.responseText) a.Close End Sub

Dazu muss man den Quellcode für das Cookie-Fenster kennen. Damit kann man den Code durchlaufen bis man zum Button kommt und diesen clicken lassen. Dann muss man versuchen im selben Fenster oder in der selben Browser-Session das Request abzusetzen. Beim IE ist es aber so, dass immer eine neue Session erstellt wird, in dieser dürfte das Cookie eher nicht mehr gelten.
Button-Code für das Cookie-Fenster:

<button type="submit" class="btn primary" name="agree" value="agree">OK</button>

Vielleicht wäre es besser mit dem Firefox zu arbeiten. Dafür könnte man einen VBS-Code nutzen (Die VBS-Datei mit Shell starten). Diese VBS-Datei ruft den FF auf, setzt das Cookie und anschließend in der selben Session das HTTPRequest, das Request könnte eine CSV estellen die anschließend in Excel eingelesen wird. Folgend ein Beispiel-VBS von mir (geheime Angaben habe ich aus Datenschutzgründen bzw. rechtlichen Gründen durch unsinnige Angaben ersetzt). Vielleicht hilft Dir das weiter.

Dim wshShell
Dim objFFApp
Dim strUserPath
Dim strLinkDBRiL
Dim strLinkDBRIS
Dim strLinkDBZugradar
Dim strLinkRISDBFilter

Set wshShell = WScript.CreateObject("WScript.Shell")
    strUserPath = wshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Set wshShell = Nothing

strLinkDBZugradar = "firefox.exe -new-tab " & _
                    "http://www.apps-bahn.de/bin/livemap/" & _
                    "query-livemap.exe/dn?L=vs_livefahrplan&livemap=" & _
                    "yes&stationInput=8000230&pICE=1&pIC=1&showICEStops=" & _
                    "1&pRegional=1&showRegionalStops=1&showJourneyLabel=" & _
                    "1&showOptions=0"

strLinkDBRIS = "firefox.exe -new-tab " & _
               "https://beispielurl.de/beispielhttp/beispiel.xml?action=" & _
               "knotene&eins=1234567&zwei=dreis&vier=" & _
               Year(Now) & "-" & Right("0" & Month(Now), 2) & "-" & _
               Right("0" & Day(Now), 2) & "T" & Right("0" & Hour(Now), 2) & _
               ":" & Right("0" & Minute(Now), 2)

strLinkRISDBFilter = "firefox.exe -new-tab " & _
                     "https://beispielurl.de/beispielhttp/beispiel.xml?action=" & _
                     "knoten&eins=1234567&zwei=drei&vier=" & _
                     Right("0" & Day(Now), 2) & "." & Right("0" & Month(Now), 2) & "." & _
                     Right("0" & Year(Now), 2) & "&achzehn=" & _
                     Right("0" & Hour(Now), 2) & "%3A" & Right("0" & Minute(Now), 2) & _
                     "&fuenf=90" & _
                     "&sechs=sieben&acht&neun=zehn&elf=zwoelf&zdreizehn=vierzehn&feunfzehn=" & _
                     "&sechzehna=&siebzehn=Text"

strLinkDBRiL = "firefox.exe -new-tab file:///" & strUserPath & "/Desktop/" & _
               "RiL%20DB/vorschriften.html"

Set objFFApp = CreateObject("WScript.Shell")
    With objFFApp
        .Run ("firefox.exe")
        WScript.Sleep (2000)
        .Run (strLinkDBZugradar)
        .Run (strLinkDBRIS)
        .Run (strLinkDBRiL)
    End With
Set objFFApp = Nothing

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:René Holtz
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

Http Request / Link nicht vorhanden

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Http Request / Link nicht vorhanden

29 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)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread