Excel VBA在输入框填满数据后触发网页中的事件

Question

我试图填补网页中的一个输入框，实际触发事件的结果是自动更新一些隐藏的字段。

网页背后的代码

<INPUT onchange=iCFieldChanged(this); tabIndex=1017 onkeypress="AllowOnly(event, '[()0-9-+]','');" onfocus="tbInitialValue=this.value;g_fFieldValue = this.value;g_fFieldId = this.id;" onblur="if(tbInitialValue!=this.value &amp;&amp; Page_IsValid){executingPostBack=true;__doPostBack('dnn:ctr366:ClaimPhysicianInformation:_ctl2:Datapanel:_ctl0:_ctl5:ClaimRecipient:ds_ClaimRecipient:mb_ds_ClaimRecipient', '');}g_fFieldId = null;" id=dnn_ctr366_ClaimPhysicianInformation__ctl2_Datapanel__ctl0__ctl5_ClaimRecipient_ds_ClaimRecipient_mb_ds_ClaimRecipient onpaste="return true;" style="TEXT-ALIGN: right" maxLength=10 size=11 value=9468381692 name=dnn:ctr366:ClaimPhysicianInformation:_ctl2:Datapanel:_ctl0:_ctl5:ClaimRecipient:ds_ClaimRecipient:mb_ds_ClaimRecipient>

在上面代码的第一个输入标记行上有5个事件侦听器- onblur、< code>onkeypress、< code>onfocus、< code>onchange、< code>onpaste。我可以将值传递给输入框，但是相关的事件没有被释放。

代码已尝试(无错误，但未调度事件)

ie.Document.getElementById("dnn_ctr366_ClaimPhysicianInformation__ctl2_Datapanel__ctl0__ctl5_ClaimRecipient_ds_ClaimRecipient_mb_ds_ClaimRecipient").Value = memberId
'tried with all fire event combinations but nothing works
ie.Document.getElementById("dnn_ctr366_ClaimPhysicianInformation__ctl2_Datapanel__ctl0__ctl5_ClaimRecipient_ds_ClaimRecipient_mb_ds_ClaimRecipient").FireEvent ("onkeypress")

也尝试调度事件，但显示错误

Set srchbtn = ie.Document.getElementById("dnn_ctr366_ClaimPhysicianInformation__ctl2_Datapanel__ctl0__ctl5_ClaimRecipient_ds_ClaimRecipient_mb_ds_ClaimRecipient")
    srchbtn.Value = memberId
    'getting error in next line
    Set event_onChange = ie.Document.createEvent("HTMLEvents")
    event_onChange.initEvent "keypress", True, False
    srchbtn.dispatchEvent event_onChange

还尝试了如下按键事件

Set objEvent = IE.Document.createEvent("keyboardEvent")
objEvent.initEvent "keypress", True, False
IE.Document.getElementById("dnn_ctr366_ClaimPhysicianInformation__ctl2_Datapanel__ctl0__ctl5_ClaimRecipient_ds_ClaimRecipient_mb_ds_ClaimRecipient")(0).dispatchEvent objEvent

但同样的错误出现了

错误：运行时错误“438”：对象不支持此属性或方法

由于它是一个安全的网页，我不能分享复制代码的网址，请指导我进一步的程序

Answer 1

这可能会帮助其他面临同样问题的人

  set srchbtn = ie.Document.getElementById("dnn_ctr366_ClaimPhysicianInformation__ctl2_Datapanel__ctl0__ctl5_ClaimRecipient_ds_ClaimRecipient_mb_ds_ClaimRecipient")
  srchbtn.Focus
  srchbtn.Value = memberId
  srchbtn.Blur

Answer 2

没有VBA，你的输入事件能在IE中被正确触发吗？我尝试调度< code>onchange事件，它成功了。我按照这篇文章中的方法。你可以参考我下面的简单例子:

输入框：

VBA电码:

Sub LOADIE()
    Set ieA = CreateObject("InternetExplorer.Application")
    ieA.Visible = True
    ieA.navigate "http://somewebsite"
    Do Until ieA.readyState = 4
       DoEvents
    Loop

    Set doc = ieA.Document
    Set Search = doc.getElementsByName("q")(0)   
    Search.Value = "VBA"

    Dim event_onChange As Object
    Set event_onChange = ieA.Document.createEvent("HTMLEvents")
    event_onChange.initEvent "change", True, False
    Search.dispatchEvent event_onChange

    ieA.Quit
    Set ieA = Nothing
End Sub

上面的函数也适用于keypress事件。关于您收到的错误，您可以检查此线程以获取更多信息。