Заполните форму сайта с выпадающим меню с VBA

Question

Запись следующего макроса VBA в Excel:

Sub compile()

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "www.google.it"
IE.Visible = True

Do While IE.Busy
    DoEvents
Loop

IE.document.getElementById("Civico").Value = "1"

End Sub

поле "номер дома" не заполнено, и я действительно не знаю, как. Кто-нибудь может мне помочь? Спасибо!

Answer 1

Я думаю, вы не можете выбрать значение выпадающего списка, потому что оно не инициализировано. Нам нужно выбрать значение из «VCinputLo c», чтобы отобразился раскрывающийся список «VCinputCivico». Вы можете смоделировать нажатие клавиши вместо заданного значения и добавить немного ожидания при инициализации выпадающего списка кода.

Пример кода:

Sub compile()

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "https://fibra.planetel.it"
IE.Visible = True

Do While IE.Busy
    DoEvents
Loop

IE.document.getElementById("VCinputLoc").Focus
IE.document.getElementById("VCinputLoc").Value = "ROMA"
Application.SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("00:00:02"))
IE.document.getElementsByClassName("autocomplete-suggestion")(0).Click
IE.document.getElementById("VCinputIndirizzo").Focus
IE.document.getElementById("VCinputIndirizzo").Value = "Piazza Del Campidoglio"
Application.Wait (Now + TimeValue("00:00:05"))
IE.document.getElementById("VCinputCivico_chosen").getElementsByTagName("a")(0).Focus
Application.SendKeys "{DOWN}"
Application.SendKeys "1"
Application.SendKeys "{DOWN}"
Application.SendKeys "{ENTER}" 'the last step can't enter the value, you could research more and I'll also continue to research
End Sub