Question

这是我的第一篇文章，所以如果我的问题有任何问题，希望你能开导我。所以我想改变一个网站的dropdown框的值，我已经尝试了很多方法，我在这里和其他网站上看到但是它们都没有用。

以下是我在VBA module中尝试使用的代码，用于更改dropdown框的值：

 ie.document.getElementById("selectProductPartner").Value = "7"

我也试过

 ie.document.getElementById("selectProductPartner").Value = "7"
 ie.document.getElementById("selectProductPartner").FireEvent = "jQuery17108728972567844554"

以上代码对我不起作用，这里是html source

的行

<OPTION value=7 jQuery17108728972567844554="151">Product (GG)</OPTION>

希望有人可以帮我解决这个问题。提前感谢您的帮助：）

编辑：下面是我的完整代码，除了填充组合框的值之外，其余代码运行良好

Sub test()

Set ie = CreateObject("InternetExplorer.Application")
my_url = "http://OBB.asdfgh.com/"

With ie
    .Visible = True
    .navigate my_url
    .Top = 50
    .Left = 530
    .Height = 400
    .Width = 400

Do Until Not ie.Busy And ie.readyState = 4
    DoEvents
Loop

End With

ie.document.getElementById("UserCode").Value = "65478"
ie.document.getElementById("Password").Value = "2222555"

ie.document.getElementById("btnLogin").Click

Do Until Not ie.Busy And ie.readyState = 4
    DoEvents
Loop

my_url = "http://OBB.asdfgh.com/Report/ProductReport"

  With ie
    .Visible = True
    .navigate my_url
    .Top = 50
    .Left = 530
    .Height = 400
    .Width = 400

Do Until Not ie.Busy And ie.readyState = 4
    DoEvents
Loop

End With

ie.document.getElementById("selectProductPartner").Value = "7"
ie.document.getElementById("selectProductPartner").FireEvent = "jQuery17108728972567844554"

End Sub

VBA在html选项中使用jquery更改下拉列表值

0 个答案: