Я создаю макрос для доступа к защищенному паролем веб-сайту, на котором я хочу «щелкнуть» раскрывающийся список, а затем при появлении опции выбрать определенную запись. После загрузки страницы перенаправления я хочу извлечь значение, а затем повторить для обработки.
Я уже выполнил первый шаг, а именно доступ к защищенному паролем веб-сайту. Тем не менее, я не могу получить щелчок в раскрывающемся списке и выбор записи для работы.
Sub OmfireLogin()
Dim objIE As Object
Set objIE = CreateObject("internetexplorer.Application")
With objIE
.Visible = True
.Navigate2 "http://app.omlocal.de/users/login"
Do While .Busy And .Readystate <> 4
DoEvents
Loop
.Document.getElementById("username").Value = "USERNAME"
.Document.getElementById("password").Value = "PASSWORD"
Set htmlDOC = .Document
Set frm = htmlDOC.forms(0)
frm.submit
End With
Пока здесь не работает код. Затем я добавил следующее, чтобы щелкнуть раскрывающийся список в качестве первого шага:
With objIE
.Document.getElementById("select2-accounts-container").Click
End With
Однако это не работает. HTML-код веб-сайта для раскрывающегося списка выглядит следующим образом:
<span class="select2-selection__rendered" id="select2-accounts-container" role="textbox" aria-readonly="true" title="Account">Account</span>
Я ожидаю, что раскрывающийся список открывается с помощью приведенной выше команды, однако я получаю уведомление о том, что его необходимо отладить. Я также пытался работать с
.Document.getElementByClassName
Но мой Excel говорит, что эта команда не поддерживается ...?
Я ценю любую помощь, спасибо!