Hallo zusammen,
ich versuche nun schon seit 2 Stunden, gewisse Daten aus dem Internet zu ziehen. Prinzipiell klappt das auch mit folgendem Code. Mein Problem ist nur, dass teilweise die Werte vertauscht werden. Beispiel: Er schreibt in Zeile 31 das, was in Zeile 30 Stehen soll und andersrum. Überprüft habe ich, dass die Seiten in richtiger Reihenfolge aufgerufen werden. Warum er die Werte dann dreht, weiß ich nicht. Kann mir hier jemand helfen?
Sub Zip()
Dim IE As New InternetExplorer
For i = 2 To 31
'IE.Visible = True
IE.navigate "http://www.onvista.de/aktien/fundamental/" & Cells(i, 3).Value & "-Aktie-" & Cells(i, 2).Value
Do
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim sDD As String
sDD = Trim(Doc.getElementsByTagName("td")(217).innerText)
Sheets("Uebersicht").Cells(i, 10).Value = sDD
Cells(i, 11).FormulaR1C1 = "=RC[-1]*1"
Next
IE.Quit
End Sub
|