网页表单点击提交仅刷新页面无法提交数据问题咨询

核心原因 #

站点更新后大概率切换为React/Vue类前端框架渲染，原生DOM方法（直接调用.Click()、form.submit()）无法触发框架绑定的合成事件监听，同时直接修改输入框value属性不会同步框架内部的表单状态，最终导致提交逻辑不执行、仅触发页面刷新。

可直接落地的修复方案（无需安装额外软件，兼容现有VBA+Excel环境） #

• 元素定位不要用标签下标取，站点更新后按钮顺序极易变动，直接用按钮自带的稳定测试属性选择：

' 替换之前的getElementsByTagName下标写法
Dim submitBtn As Object
Set submitBtn = doc.querySelector("button[data-testid='submit-eligibility']")

• 填充表单字段时，不要直接修改输入框的value属性就结束，填值后必须手动触发input事件同步框架状态，否则框架内部记录的表单值始终为空，自然不会走正常提交流程：

' 以单个输入框填充为例
Dim targetInput As Object, inputEvt As Object
Set targetInput = doc.querySelector("对应输入框的选择器")
targetInput.Value = "从Excel读取到的填充值"
' 触发input事件通知框架值已更新
Set inputEvt = doc.createEvent("HTMLEvents")
inputEvt.initEvent "input", True, False
targetInput.dispatchEvent inputEvt

• 触发提交时不要直接调用.Click()方法，模拟完整的鼠标事件序列，适配框架的非用户操作校验：

Dim mousedownEvt As Object, mouseupEvt As Object, clickEvt As Object
' 依次派发mousedown、mouseup、click事件，完全模拟真实鼠标点击流程
Set mousedownEvt = doc.createEvent("MouseEvents")
mousedownEvt.initMouseEvent "mousedown", True, True, doc.parentWindow, 1, 0, 0, 0, 0, False, False, False, False, 0, Nothing
submitBtn.dispatchEvent mousedownEvt

Set mouseupEvt = doc.createEvent("MouseEvents")
mouseupEvt.initMouseEvent "mouseup", True, True, doc.parentWindow, 1, 0, 0, 0, 0, False, False, False, False, 0, Nothing
submitBtn.dispatchEvent mouseupEvt

Set clickEvt = doc.createEvent("MouseEvents")
clickEvt.initMouseEvent "click", True, True, doc.parentWindow, 1, 0, 0, 0, 0, False, False, False, False, 0, Nothing
submitBtn.dispatchEvent clickEvt

• 如果上述事件派发方案仍被拦截，直接用现有可正常运行的SendKeys逻辑模拟用户手动点击，完全绕过前端的非人工操作检测：

submitBtn.Focus ' 先把焦点移到提交按钮上
SendKeys " ", True ' 发送空格键触发按钮点击，第二个参数设为True等待操作执行完成
Application.Wait Now + TimeValue("00:00:02") ' 等待2秒给页面响应提交

避坑说明 #

• 不要直接调用form.submit()提交，该方法会绕过所有前端框架绑定的校验、数据组装、请求头注入逻辑，提交的请求不符合站点接口要求，只会被重定向回原页面也就是看到的刷新效果。
• 提交前确认所有必填字段都已经触发过input事件同步状态，否则框架检测到表单值为空会直接中断提交，不会弹出原先的字段校验提示。

内容的提问来源于stack exchange，提问作者Firefaded