Я ищу милостивую помощь после нескольких бессонных ночей.Я новичок в кодировании VBA, и я ищу способ выбрать вариант из выпадающего меню на веб-странице, используя VBA.
Я попробовал несколько трюков (getelementbyid и т. Д.), Ни один из которых не был успешным, кто-нибудь может дать мне подсказку?
вот мой код:
Sub VBAinternet()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputURLZoneTexte As HTMLInputElement
Dim InputURLBouton As HTMLInputElement
IE.navigate "url"
IE.Visible = True
Set IEDoc = IE.document
Set InputURLBouton = IEDoc.all("NouvelleFiche")
InputURLBouton.Click
SetInputURLBouton = IEDoc.all("CH83_1_I")
InputURLBouton.Click
Set IE = Nothing
Set IEDoc = Nothing
End Sub
вот часть, которая меня интересует в коде веб-страницы:
<td class="dxic" style="width: 100%;" onmousedown="return ASPx.DDDropDown('CH83_1', event)"><input name="Etape297$Bloc1197$CH83_1" class="dxeEditArea_ThemeQualnet dxeEditAreaSys dxeHideDefaultIEClearBtnSys" id="CH83_1_I" onfocus="ASPx.EGotFocus('CH83_1')" onblur="ASPx.ELostFocus('CH83_1')" onchange="ASPx.ETextChanged('CH83_1')" type="text" maxlength="-1" border="0" autocomplete="off"></td>
и немного дальше в коде, что я хочувыбрать «случайность» в выпадающем меню
<td class="dxic" style="width: 100%;" onmousedown="return ASPx.DDDropDown('CH83_1', event)"><input name="Etape297$Bloc1197$CH83_1" class="dxeEditArea_ThemeQualnet dxeEditAreaSys dxeHideDefaultIEClearBtnSys" id="CH83_1_I" onfocus="ASPx.EGotFocus('CH83_1')" onblur="ASPx.ELostFocus('CH83_1')" onchange="ASPx.ETextChanged('CH83_1')" type="text" maxlength="-1" border="0" autocomplete="off"></td>
, и вот большая часть кода с таблицами, которые я пытаюсь работать с: pastebin.com/6J1FVPx4