ich ziehe mir mittels Http Request eine spezielle Seite bei Yahoo (IE11 wird von Yahoo nicht mehr vollständig unterstützt) um einen ganz bestimmten Link innerhalb des HTML-Codes zu bekommen über den ich mir die historischen Dividenen als csv-Datei ziehen kann. Wenn ich die Seite in Firefox öffne sehe ich, dass der Link vorhanden ist aber wenn ich mir den HTML-Code über den Http-Request ziehe ist er nicht vorhanden.
Mit dem Internet Explorer war es immer so, dass ich zunächst die Cookie Abfrage bestätigen musste und der Link bei der ersten Iteration nicht auffindbar war. Ich musste immer ein zweites Mal iterieren mit Hilfe einer Schleife dann hab ich den Link bekommen. Allerdings bin ich nun etwas unsicher ob ich mit dem Http-Request ebenfalls eine Cookie Abfrage bestätigen muss. ?
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