VBA IE 自动化表单提交错误，表单未验证数据

问题描述

在提交表单未捕获数据、似乎出错或数据未验证、任何建议/建议时，需要您帮助处理以下代码

子寄存器() Dim appIE 作为 InternetExplorerMedium Dim objElement 作为对象 Dim objCollection 作为对象将 LastRow 调暗至长昏暗的我昏暗一样长 Dim IE 作为对象变暗为工作表

Application.ScreenUpdating = False

 Set appIE = New InternetExplorerMedium

sURL = "www.google.form.html"

使用 appIE .Navigate sURL .可见 = 真结束于

在 appIE.Busy 或 appIE.ReadyState 4 事件环形 Application.StatusBar = "提交" ' 等待 appIE 加载... 虽然 appIE.Busy 事件温

' **********************************************************************
appIE.Document.getElementByID("form-options-400376029").Value = sht.Range("C" & i)
appIE.Document.getElementByID("form-options-1327113494").selectedindex = sht.Range("E" & i)
appIE.Document.getElementByID("form-text-1234").Value = sht.Range("F" & i)
appIE.Document.getElementByID("form-text-4567").Value = sht.Range("G" & i)
appIE.Document.getElementByID("form-text-7891").Value = sht.Range("H" & i)
appIE.Document.getElementByID("form-text-2345").Value = sht.Range("I" & i)
appIE.Document.getElementByID("form-text-3456").Value = sht.Range("J" & i)
appIE.Document.getElementByID("form-text-7419").Value = sht.Range("K" & i)
appIE.Document.getElementByID("form-options-7565").Value = sht.Range("L" & i)
appIE.Document.getElementByID("form-text-5539").Value = sht.Range("M" & i)
appIE.Document.getElementsByClassName("form-checkBox")(0).Click
'appIE.Document.getElementsByName("Send")(0).Click
'**********************************************************************

结束子

解决方法

但是我得到了如下解决方案

bot.FindElementById("form-options-1470254364default").SendKeys "{ENTER}"
bot.FindElementById("form-options-1470254364default").SendKeys "{ }"

验证并点击条款和条件框但面临的另一个问题是不点击“发送”按钮

我正在使用 VBA Selenium Chrome

页面下方脚本

发送

我已经应用了sendkeys方法，点击方法但不知何故不起作用，请任何支持

automaton validation