Мне нужна помощь, нажав кнопку, а затем выбрав параметры на веб-странице с помощью VBA.
Ссылка на веб-страницу: https://clinicaltrials.gov/ct2/results?cond=&term=Medpace&cntry=&state=&city=&dist=
Мне нужно нажать «Показать/скрыть столбцы», затем выбрать «Тип исследования», «Этап», «Спонсор/сотрудники», «Число зачисленных», «Номер NCT», «Начало исследования», «Завершение исследования» и «Последнее обновление». Опубликовано".
Класс кнопки "Показать/скрыть столбцы": .getElementsByClassName("dt-button buttons-collection buttons-colvis").click
Private Sub Workbook_Open()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
.Navigate ("https://clinicaltrials.gov/ct2/results?cond=&term=Medpace&cntry=&state=&city=&dist=")
While .Busy Or .readyState <> 4: DoEvents: Wend
With IE.document
IE.Refresh
.getElementsByClassName("dt-button buttons-collection buttons-colvis").click
.querySelector("#save-list-link").click
.querySelector("#number-of-studies option:last-child").Selected = True
' .querySelector("#which-format option:fourth-child").Selected = True
' .querySelector("#which-format").selectedIndex = 3
' .querySelector ("#number-of-studies").selectedIndex = 1
' .querySelector("[value=csv]").click
.querySelector("#submit-download-list").click
' Set div = IE.document.getElementById("save-list-link")
' div.FireEvent "onclick"
End With
Application.Wait Now + TimeSerial(0, 0, 10)
Application.SendKeys "%+s", True
Application.Wait Now + TimeSerial(0, 0, 10)
.Quit
' For Each elt In IE.document.getElementById("number-of-studies")
' If InStr(elt.innerText, "Found") > 0 Then elt.click: Exit For
' Next elt
' Set div4 = IE.document.getElementById("submit-download-list")
' div4.click
End With
End Sub