Потянув коэффициент захвата вверх / вниз от morningstar.com
Первый раз долгое время.
Новое в этой вещи VBA, однако завоевывает популярность.
Я заинтересован в том, чтобы вывести соотношение «вверх / вниз» для многих взаимных фондов и хочу автоматизировать этот процесс. Таблица, из которой я беру информацию, не является вашей типичной таблицей; Я думаю этос "динамический объект " на утреннюю звездуСайт с сайтом Вот сайт.
http://performance.morningstar.com/fund/ratings-risk.action?t=FDSAX&область = США &культура = 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)
Вот где я застрял. Я знаю, что мне нужно использоватьТрещина' Для того, чтобы вывести каждую позицию мне нужны данные. Пример 1 год роста 1 год вниз 3 года потенциал 3 года вниз.
Поэтому, как только я получу его в Excel, мне нужно будет запустить Excel через все мои тикеры ... около 1500, чтобы получить эти данные, поскольку они обновляются раз в месяц.
Заранее спасибо ... тыЯ буду спасателем жизни ... в буквальном смысле я могу застрелиться, если я нене понять это :)