Excel VBA, чтобы щелкнуть элемент HTML из списка в таблице

Я знаю, что на SO были похожие вопросы по этой проблеме, и я просматривал и пробовал многие из них, но все же у меня возникла проблема с выбором параметра из раскрывающегося списка на веб-сайте. Я действительно пытаюсь понять это самостоятельно, но я не могу понять эту часть правильно.

К сожалению, к веб-сайту можно получить доступ только изнутри (конечно!), поэтому я не могу поделиться им, но я попытался предоставить HTML, который я считаю уместным.

Что я пытаюсь сделать, так это выбрать из списка опцию «Равно». Большинство моих попыток заканчиваются пропуском части IF = Equals To и переходом к следующей части VBA.

Вот пара моих недавних попыток. (Получение ошибки Object Required на подходах QuerySelector.

<!DOCTYPE html>
<html>

<body class = "bootstrap-wrapper" style = "cursor: auto;">
  <div tabindex = "-1" class = "ui-dialog ui-corner-all ui-widget ui-widget-content ui-front dialog ui-draggable ui-resizable" role = "dialog" aria-describedby = "02T" aria-labelledby = "ui-id-1" style = "left: 328px; top: 167.5px; width: 977px; height: 603px; overflow: visible; display: block; position: absolute; z-index: 201;">
    <div title = "" class = "chosen-container chosen-container-single chosen-container-single-nosearch chosen-with-drop chosen-container-active" id = "paymentReferenceNumber_chosen" style = "left: 482px; top: 279.41px; width: 200px; margin-top: 45px; margin-left: 0px; position: absolute;">
      <div class = "chosen-drop" style = "display: block;">
        <div class = "chosen-search"><input type = "text" readonly = "" autocomplete = "off"></div>
        <ul class = "chosen-results">
          <li class = "active-result result-selected" data-option-array-index = "0">
            Select
          </li>
          <li class = "active-result" data-option-array-index = "1">
            Equals To
          </li>
          <li class = "active-result" data-option-array-index = "2">
            Contains
          </li>
          <li class = "active-result" data-option-array-index = "3">
            Is Empty
          </li>
        </ul>
      </div>
    </div>
  </div>
</body>

</html>

Dim inputElement As HTMLInputElement
Set inputElement = doc.querySelector( _
    "html body[class=bootstrap_wrapper] tbody div[tabindex=-1] div[class=chosen-container chosen-container-single chosen-container-single-nosearch chosen-with-drop chosen-container-active] div[class=chosen-drop] ul[class=chosen-results] li[class=active-result][data-option-array-index=1]")

If Not inputElement Is Nothing Then
    inputElement.Click
End If

ИЛИ

ieApp.Document.querySelector("Select[name=paymentReferenceNumber_oper] option[value=equalsTo]").Selected = True

ИЛИ

    Set ElementCol = ieApp.Document.getElementsByTagName("li")
    For Each ee In ElementCol
        If ee.innerHTML = "Equals To" Then
           ee.Click: DoEvents: Sleep 1000
           Exit For
        End If
    Next ee

Большинство других ссылок я смог выбрать, просто используя:

ieApp.Document.all.Item("adv_search_tab").Click: Sleep 1000

Или используя:

Set ElementCol = ieApp.Document.getElementsByTagName("input")
    For Each ee In ElementCol
        If ee.Name = "search" Then
           ee.Click: DoEvents: Sleep 1000
           Exit For
        End If
    Next ee

Это всего лишь два из недавних сообщений SO, которые я просматривал, чтобы попытаться понять альтернативы: VBA выбирает значение из раскрывающегося списка на веб-странице

Параметр изменения Excel VBA в теге выбора HTML

html excel vba

22.03.2019 16:45

Улучшение производительности загрузки с помощью Google Tag Manager и атрибута Defer

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

Введение в CSS

CSS является неотъемлемой частью трех основных составляющих front-end веб-разработки.

Как выровнять Div по центру?

Чтобы выровнять элемент <div>по горизонтали и вертикали с помощью CSS, можно использовать комбинацию свойств и значений CSS. Вот несколько методов,...

Навигация по приложениям React: Исчерпывающее руководство по React Router

React Router стала незаменимой библиотекой для создания одностраничных приложений с навигацией в React. В этой статье блога мы подробно рассмотрим...

Система управления парковками с использованием HTML, CSS и JavaScript

Веб-сайт по управлению парковками был создан с использованием HTML, CSS и JavaScript. Это простой сайт, ничего вычурного. Основная цель -...

Toor - Ангулярный шаблон для бронирования путешествий

Toor - Travel Booking Angular Template один из лучших Travel & Tour booking template in the world. 30+ валидированных HTML5 страниц, которые помогут...

968

Другие вопросы по теме

Понимание, что нет функции «MedianIFs», есть ли обходная формула?

Использование классического ASP для добавления содержимого электронных таблиц, включая смайлики

Использование Pandas для усреднения данных по листам Excel с соответствующими данными столбца

Соединение с сервером было прервано аварийно

Сохранить и закрыть файл Excel, созданный в 2016 году, и теперь он работает в Excel 365

Переместите записи в конец электронной таблицы, если она содержит 0

Как добавить столбец и заполнить его значениями

Jet.OLEDB или ACE.OLEDB MS Access

Приложение Excel VBA.visible немедленно вернулось к True

Экспорт p-значений из reghdfe в Excel

Excel VBA, чтобы щелкнуть элемент HTML из списка в таблице

Другие вопросы по теме

Похожие вопросы