Erstes Mal lange Zeit.

Neu in dieser VBA-Sache, aber auffällig.

Ich bin daran interessiert, das Upside / Downside-Erfassungsverhältnis für viele Investmentfonds zu erhöhen, und möchte den Prozess automatisieren. Der Tisch, von dem ich die Informationen beziehe, ist kein typischer Tisch. Ich denke, es ist ein "dynamisches Objekt" auf der Website von morningstar. Hier ist die Website.

http://performance.morningstar.com/fund/ratings-risk.action?t=FDSAX&region=USA&culture=en-us

Dies gilt speziell für den SunAmerica Focus Dividend Fund. Ich möchte es jedoch für viele Fonds tun. Ich habe es an msgbox geschickt, weiß aber nicht, wie ich eine Schleife machen und die Informationen über Excel erhalten soll.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column=Range("upDown").Row And _
  Target.Column= Range("upDown").Column Then

  Dim IE as New InternetExplorer
  IE.Visible=False
  IE.navigate "http://performance.morningstar.com/fund/ratings-risk.action?t=" _
     & Range("upDown").Value

  Do
    DoEvents
  Loop Until IE.readyState = READYSTATE_Complete
    Dim Doc as HTMLDocument
    Set Doc = IE.document
    Dim sTR As String 'got the "TR" from google chrome inspect element
    sTR = Trim(Doc.getElementsByTagName("tr")(45).innerText)

Hier stecke ich fest. Ich weiß, dass ich den "Split" verwenden muss, um jede der von mir benötigten Daten als Werbebuchung zu verwenden. Beispiel 1Jahr Aufwärts 1 Jahr Abwärts 3 Jahr Abwärts 3 Jahr Abwärts

Sobald ich es auf Excel bekomme, muss Excel alle meine Ticker durchlaufen haben ... ungefähr 1500, um diese Daten abzurufen, da es einmal pro Monat aktualisiert wird.

Vielen Dank im Voraus ... Sie werden ein Lebensretter sein ... buchstäblich könnte ich mich erschießen, wenn ich es nicht herausfinde :)