在近20万条人员信息的xlsx 表格中做了VBA程序; 能根据网页表单中身份证号码字段的数值自动在近20万条记录中取出相关联的其他信息, 并填写到网页表单中. 调试程序时添加了监视变量观察了, 这些相应文本框的value 值,都不为空,都有相应的字符串赋值, 但是在点击保存按钮时, 首先提示手机号码文本框为空, 我手动重新录入后, 不再提示为空, 接着又提示其他文本框,或者下拉选择框为空, 我逐个手动修改了,才能保存成功. 我想请教您, 如何在网页代码中添加语句, 添加什么语句能解决这个问题, 我就想能自动取出相关联的数据,然后点击保存就成功。 这样我的VBA 程序就能方便的自动取数保存. 极大方便数据的录入
mDocument.parentWindow.execScript "window.saveForm = function() { return true; }", "JScript"
可是当代码运行到下一句:
tagx.Click
还是提示输入为空,我该怎么办呢?
Set tags = mDocument.getElementsByTagName("input")
For Each tagx In tags
If ((tagx.Value = "保存") And (tagx.Type = "button")) Then
'禁用JS检验代码
mDocument.parentWindow.execScript "window.saveForm = function() { return true; }", "JScript"
tagx.Click
End If
Next
Application.Wait Now + TimeValue("00:00:05") 设置等待5秒钟看看有没有效果呢