Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Парсинг данных с сайта (href ссылки)
 
Всем привет! VBA изучаю совсем недавно, поэтому могу написать глупость.

Стоит следующая задача. Есть рейтинг (http://acon.pro/reytingi/vserossiyskiy/), я его полностью запарсил в экселе,

Теперь я хочу, чтобы VBA открывал эту ссылку, дальше вводил название УК в поисковик, нажимал найти, дальше открывается страница, где только эта компания (до этого момента у меня получилось это сделать).
Дальше необходимо нажать еще раз на название этой компании, чтобы открылся список, который я перекопировал бы в эксель.

Вот не могу написать код, чтобы открывался этот список, т.к. там гиперссылка, к которой не знаю как подступиться.

Заранее всем спасибо!

Сам код вот:

Sub GetHTMLDocument()

   Dim IE As New SHDocVw.InternetExplorer
   Dim HTMLDoc As MSHTML.HTMLDocument
   Dim HTMLInput As MSHTML.IHTMLElement
   Dim HTMLButtons As MSHTML.IHTMLElementCollection
   Dim HTMLButton As MSHTML.IHTMLElement
   Dim HTMLButtonsA As MSHTML.IHTMLElementCollection
   Dim HTMLButtonA As MSHTML.IHTMLElement
   
   IE.Visible = True
   IE.navigate "acon.pro/reytingi/vserossiyskiy/"
   
   Do While IE.ReadyState <> READYSTATE_COMPLETE
   Loop
   
   Set HTMLDoc = IE.Document
   Set HTMLInput = HTMLDoc.getElementById("SHORT_NAME_COMPANY")
   HTMLInput.Value = " ГБУ ЭВАЖД "
   
   Set HTMLButtons = HTMLDoc.getElementsByClassName("href-bordo")
   
   For Each HTMLButton In HTMLButtons
   Debug.Print HTMLButton.className, HTMLButton.tagName, HTMLButton.ID, HTMLButton.innerText, HTMLButton.Style
   Next HTMLButton

HTMLButtons(0).Click

  Set HTMLButtonsA = HTMLDoc.getElementsByTagName("tg")
 
 
  For Each HTMLButtonA In HTMLButtonsA
   Debug.Print HTMLButtonA.className, HTMLButtonA.tagName, HTMLButtonA.ID, HTMLButtonA.innerText, HTMLButtonA.Style
   Next HTMLButtonA


End Sub
Изменено: briancaroll - 13 Сен 2018 11:17:33
 
briancaroll, привет.

Приведите код в порядок, используя кнопку оформления кода "<>"
Что касается парсинга, начальные данные можно получить просто подставив данные по такой ссылке:
Код
http://acon.pro/reytingi/vserossiyskiy/?SHORT_NAME_COMPANY=ГБУ+ЭВАЖД&selregion=&INN_COMPANY=
А вот дальше необходимо парсить полученный текст страницы на ссылки к нужным вам компаниям, в вашем случае она выглядит так:
Код
http://acon.pro/reytingi/top-5000/detail.php?ID=46511
Страницы: 1
Читают тему (гостей: 1)
Наверх