Thema Datum  Von Nutzer Rating
Antwort
Rot Infos aus Webseiten
 06.01.2017 13:26:16 Jan
Solved
06.01.2017 18:28:15 Günther
NotSolved

Ansicht des Beitrags:
Von:
Jan		 Datum:
06.01.2017 13:26:16		 Views:
975		 Rating:
     
Antwort:
 Nein
Thema:
Infos aus Webseiten		 
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Infos aus Webseiten
 06.01.2017 13:26:16 Jan
Solved
06.01.2017 18:28:15 Günther
NotSolved