Теперь я хочу, чтобы 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
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