| Код |
|---|
Public Sub Fromfinam()
Dim i As Integer
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate ("http://www.finam.ru/profile/moex-akcii/gazprom/export")
While CBool(ie.Busy)
i = i + 1
If i > 29999 Then
Beep
MsgBox "Ошибка. Finam.ru не доступен, vbCritical, "Finam.Ru"
ie.Quit
Set ie = Nothing
Exit Sub
End If
DoEvents
Wend
ie.document.Forms.exportdata.from.Value = "19.11.2015" 'интервал, начальная дата
ie.document.Forms.exportdata.to.Value = "19.11.2016" 'интервал, конечная дата
ie.document.Forms.exportdata.f.Value = "Test_download" 'название выгрузки
ie.document.Forms.exportdata.p.Value = 1 'ТУТ ВЫПАДАЮЩИЙ СПИСОК. не могу указать значение
Set ie = Nothing
End Sub
|
Выше пример кода, который должен собирать информацию об акциях с вебсайта.
У меня получилось заполнить несколько полей формы. Проблема возникла с раскрывающимся списком периода времени (по умолчанию 1 час)
ссылка на сайт:
К объекту обращаюсь через параметры: name = p, но просто присвоить Value = 1 не дает результата
Вот параметры объекта:
<div class="finam-ui-controls-select" style="width: 135px;"><div class="finam-ui-controls-select-title" style="width: 112px;">1 час</div><div class="finam-ui-controls-select-arrow"></div></div><select id="issuer-profile-export-period" name="p" style="width: 135px; display: none;" class="i-form-state-item">
<option value="1">тики</option>
<option value="2">1 мин.</option>
<option value="3">5 мин.</option>
<option value="4">10 мин.</option>
<option value="5">15 мин.</option>
<option value="6">30 мин.</option>
<option value="7" selected="selected">1 час</option>
<option value="8">1 день</option>
<option value="9">1 неделя</option>
<option value="10">1 месяц</option>
</select>
[/td]
Может кроме value надо еще selected="selected" указать?
Заранее благодарен!
