Переход по ссылке на сайте

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переход по ссылке на сайте (Макросы/Sub)

araz1983

Дата: Пятница, 29.05.2015, 12:39 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Уважаемые форумчане!

Пишу программу, которая позволить заходить на сайт http://www.rusprofile.ru/ и открывать страницы организаций программно.

Для этого необходимо зайти на сайт, ввести ИНН в строку поиска, затем в открывшейся странице перейти по ссылке на страницу с данными организации.
Пока получается только открыть страницу со ссылкой, написать код для перехода по ней затрудняюсь.

Прошу Вашей помощи в написании кода перехода по ссылке.

В дальнейшем планирую разобраться, как собрать сведения со страницы организации в файл EXCEL (Наименование, ИНН, адрес и т.п.)

Написанный к данному моменту код:

[vba]

Код

Sub open_agent()

Dim IE As Object
Dim inpS1 As MSHTML.IHTMLElementCollection
Dim el As MSHTML.IHTMLElement

Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.navigate "http://www.rusprofile.ru/"

Do While IE.readyState <> 4
DoEvents
Loop
Set inpS1 = IE.document.getElementsByTagName("input")
For Each el In inpS1
If el.Name = "q" Then
el.Value = "7841456612"
End If
If el.alt = "Èñêàòü" Then
el.Click
End If
Next el

Do While IE.readyState <> 4
DoEvents
Loop

End Sub

[/vba]
Заранее благодарю за ответы!
[moder]Используйте теги форматирования. В Правилах форума написано как. Поправил.

Начинающий

Ответить

araz1983

Дата: Пятница, 29.05.2015, 13:00 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Прикладываю корректный текст кода (с отображением кириллицы):
[vba]

Код

Sub open_agent()
Dim IE As Object
Dim inpS1 As MSHTML.IHTMLElementCollection
Dim el As MSHTML.IHTMLElement
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.navigate "http://www.rusprofile.ru/"
Do While IE.readyState <> 4
DoEvents
Loop
Set inpS1 = IE.document.getElementsByTagName("input")
For Each el In inpS1
If el.Name = "q" Then
el.Value = "7841456612"
End If
If el.alt = "Искать" Then
el.Click
End If
Next el
Do While IE.readyState <> 4
DoEvents
Loop
End Sub

[/vba]
[moder]Я предупреждал. Ловите первое замечание

Начинающий

Сообщение отредактировал Serge_007 - Пятница, 29.05.2015, 20:55

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переход по ссылке на сайте (Макросы/Sub)

Страница 1 из 1
1