Pierwszy raz długi czas.

Nowość w tej grze VBA, jednak dogonienie.

Jestem zainteresowany wyciągnięciem współczynnika przechwytywania w górę / w dół dla wielu funduszy inwestycyjnych i chcę zautomatyzować ten proces. Tabela, z której czerpię informacje, nie jest typowym stołem; Myślę, że jest to „dynamiczny obiekt” na stronie internetowej Morningstar. Oto strona internetowa.

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

Dotyczy to w szczególności funduszu Focus Dividend firmy SunAmerica; jednak chcę to zrobić dla wielu funduszy Oto, co mam teraz na kod; Dostałem go do msgbox, ale nie wiem, jak zapętlić i uzyskać informacje o programie Excel.

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)

Tu utknąłem. Wiem, że muszę użyć „podziału”, aby utworzyć pozycję każdego z potrzebnych mi danych. Przykład 1 roku w górę 1 rok w dół 3 lata w górę 3 lata w dół.

Tak więc, kiedy już to zrobię, muszę mieć Excela na wszystkich moich tickerach ... około 1500, aby pobrać te dane, ponieważ są one aktualizowane raz w miesiącu.

Z góry dziękuję ... będziesz ratownikiem życia ... dosłownie mogę się zastrzelić, jeśli tego nie zrozumiem :)