如何使用vba将值放在Internet Explorer中喜欢的组合框中

时间:2014-11-14 17:49:01

标签: excel vba internet-explorer combobox

我正在尝试使用VBA在网站上填写表单。

问题:问题在于,在网页中,组合框是链接的,例如,如果我手动在第一个组合框中选择一个值,那么它会激活下一个组合框(否则显示为灰色)。但是,当我尝试在下面代码的最后一行使用vba填充组合框中的值时,下一个组合框仍然是灰色/非活动状态。请帮忙。

Sub newabc()

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

ie.Visible = True

ie.navigate "URL"

While ie.Busy
   DoEvents
Wend

ie.Document.getelementbyid("USER").Value = "username"
ie.Document.getelementbyid("PASSWORD").Value = "password"

ie.Document.all("Submit").Click

While ie.Busy
   DoEvents
Wend

ie.navigate "tab"

While ie.Busy
   DoEvents
Wend

ie.Document.all("new").Click

While ie.Busy
   DoEvents
Wend

ie.Document.all("j_id0:frm:jobTrackerPageBlock0:startflds1:repeat5:1:inputField").Value = "Media Payables"

'problem occurs here as the next combo box stays inactive.

1 个答案:

答案 0 :(得分:1)

完美

ie.Document.all("elementID‌​").onchange完成了这个伎俩。 谢谢。我一直试图解决这个问题已经有一段时间了。 非常感谢Axel Richter。