Уважаемые формумчане. Буду благодарен за помощь.
Вопрос относиться к веб и взаимодействию с IE.
Код макроса
[vba]Код
Sub GetNavBarDocument()
Dim HTMLinput As MSHTML.IHTMLElement
Dim ie As New SHDocVw.InternetExplorer
Dim HTMLdoc As MSHTML.HTMLDocument
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLButton As MSHTML.IHTMLElement
'Set ie = New SHDocVw.InternetExplorer
ie.Visible = True
ie.Navigate "вебсайт см. файл"
Do While ie.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set HTMLdoc = ie.Document
Set HTMLinput = HTMLdoc.getElementsByClassName("nav navbar-nav")' Не находит елемент.
For Each HTMLButton In HTMLinput 'не обращайте внимание на переменную только контейнер
Debug.Print HTMLButton.ClassName, HTMLButton.tagName, HTMLButton.ID, HTMLButton.innerText, HTMLButton.innerHTML
Next HTMLButton
'по идеее поймали навигационный бар выделен красеым и в дамки ( li третий).
HTMLinput.Item(3).Click
End Sub
[/vba]
Но на жаль не работает. Ошибка помечена красным
Для тех кто не в курсе код без подключенных библиотек не работает.
Смотрите тест файл.