Первый раз долгое время.

Новое в этой вещи VBA, однако завоевывает популярность.

Я заинтересован в том, чтобы вывести соотношение «вверх / вниз» для многих взаимных фондов и хочу автоматизировать этот процесс. Таблица, из которой я беру информацию, не является вашей типичной таблицей; Я предполагаю, что это «динамический объект» на веб-сайте morningstar. Вот веб-сайт.

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

Это специально для целевого дивидендного фонда SunAmerica; однако я хочу сделать это для многих фондов Вот то, что у меня есть для кода прямо сейчас; Я получил это в msgbox, но не знаю, как зациклить и получить информацию о 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)

Вот где я застрял. Я знаю, что мне нужно использовать «split» для того, чтобы позиционировать каждую нужную мне информацию. Пример 1 год роста 1 год вниз 3 года потенциал 3 года вниз.

Поэтому, как только я получу его в Excel, мне нужно будет запустить Excel через все мои тикеры ... около 1500, чтобы получить эти данные, поскольку они обновляются раз в месяц.

Заранее спасибо ... ты спасешь жизнь ... буквально я могу застрелиться, если не пойму :)