我正在使用电子表格中的值填写网络表单。表单填写正常,但有一些JavaScript字段验证发生,因为我的代码填写文本框字段而没有验证,它看到我的字段为空。这是我的VBA代码片段。
Set objCollection = wd.document.getElementsByTagName("input")
i = 0
While i < objCollection.Length
'Name
If objCollection(i).Name = "Y__0__Cctl1_ctl8_ctl2_6_ctl4__X" Then
objCollection(i).Value = Sheets("Main").Range("b4") ' "Hello World"
End If
我已经缩小了onkeypress Javascript函数,但我不确定如何使用适当的变量在VBA中正确调用它。这是另一个片段。
<input name="Y__0__Cctl1_ctl8_ctl2_6_ctl4__X" title="" class="DefaultTextBox DefaultTextBoxMandatory" id="Y__0__Cctl1_ctl8_ctl2_6_ctl4__X" onkeypress="return aeweb_BlurAndCallAssoc( this, 'Y__0__Cctl1_ctl8_ctl2_6_ctl4__X', event);" onblur="aechg(this, event);" type="text" value="Hello World" cursor="01Q0Q0Q1" lastvalue="Hello World" ismandatory="true">
非常感谢任何帮助。
谢谢!