Какой синтаксис будет подходящим для нажатия на выпадающее меню «Отправить»?(См. Изображение для справки)

Question

Я хотел бы знать, какой синтаксис будет лучше, если нажать кнопку «Отправить» на веб-странице.

Вот код на данный момент:

Option Explicit
Sub Search_PubMedandCochrane()

Dim IE As New SHDocVw.InternetExplorer
IE.Visible = True
IE.Navigate "https://www.ncbi.nlm.nih.gov/pubmed"

Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop

Debug.Print IE.LocationName, IE.LocationURL

IE.Document.forms("EntrezForm").elements("term").Value = Range("B4")

IE.Document.forms("EntrezForm").elements("search").Click



End Sub

Answer 1

Попробуйте attribute = value Селектор CSS для таргетинга элемента по атрибуту и ​​его значению.

IE.document.querySelector("[sourcecontent='send_to_menu']").click

Убедитесь, что у вас достаточно времени для загрузки страницы, прежде чем пытаться щелкнуть.Как минимум вам нужно

While IE.Busy Or IE.readyState < 4: DoEvents: Wend 
IE.document.querySelector("[sourcecontent='send_to_menu']").click

Вы также можете использовать

IE.document.querySelector("#sendto > a").click