Question

经过数次不眠之夜后，我正在寻求亲切的帮助。我是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

从Internet Explorer的下拉菜单中选择VBA-JavaScript

0 个答案: