Excel web自动化：输入无效

我正在尝试编写代码，以便在工作时将数据上传到web表单中。如果复制并粘贴详细信息，表单将接受这些值，但如果VBA代码输入相同的精确值，则会出现输入错误

下面是表单的屏幕脚本

此Excel Vba代码取自StackOverflow搜索和youtube“”

Sub Ihub_upload（）
Dim应用程序作为InternetExplorerMedium
作为对象的模糊对象
作为对象的Dim OBJ集合
作为字符串的Dim sURL
Set appIE=New InternetExplorerMedium
sURL=“公司网站”
和阿皮
.导航sURL
.Visible=True
以
忙的时候做
Application.Wait DateAdd（“s”，2，Now）
环
“：：输入数据集合：：”
'我将把下面的代码放入一个循环中，以输入多个值（如果它有效的话）'
“数据采集”
appIE.document.getElementById（“CPH_MasterBody_CPH_ETL MasterBody_DDL_DataCollection”）。值=120
“文件位置选项卡16”
appIE.document.getElementById（“CPH\U MasterBody\U CPH\U ETL MasterBody\U TXT\U SourceConnectionString”）.Value=“Y:\Databases\2019-Kv9xQ.xls”
“开始日期选项卡18”
appIE.document.getElementById（“CPH\U MasterBody\U CPH\U ETL MasterBody\U TXT\U Period StartDateTime”）。Value=“01/09/2019”
'结束日期选项卡19'
appIE.document.getElementById（“CPH\U MasterBody\U CPH\U ETL MasterBody\U TXT\U PeriodEndDateTime”）。Value=“30/09/2019”
“发布日期选项卡20”
如果此工作簿.Sheets（“数据”）.Range（“I3”）.Value为“”，则
appIE.document.getElementById（“CPH\U MasterBody\U CPH\U ETL MasterBody\U TXT\U PublicationDateTime”）.Value=“14/11/2019”
如果结束
“源URL选项卡21”
如果此工作簿.Sheets（“数据”）.Range（“I3”）.Value为“”，则
appIE.document.getElementById（“CPH\U MasterBody\U CPH\U ETL MasterBody\U TXT\U SourceUrl”）。值=“https://www.england.nhs.uk"
如果结束
'：：是否保存记录？单击确定按钮：：'
应用程序。等待日期添加（“s”，3，现在）
appIE.document.getElementById（“CPH\U MasterBody\U CPH\U ETL MasterBody\U BTN\U Save”）。单击

您会收到什么错误消息？在哪里？另外，请尝试。在赋值之前集中元素，并使用不同的计时进行播放，以防fast，此外，请检查是否有任何与表单输入关联的事件侦听器。

Sub Ihub_upload()

Dim appIE As InternetExplorerMedium
Dim objElement As Object
Dim objCollection As Object
Dim sURL As String

Set appIE = New InternetExplorerMedium
sURL = "company web site "
With appIE
    .navigate sURL
    .Visible = True
End With

Do While appIE.Busy
     Application.Wait DateAdd("s", 2, Now)
Loop

':::: Enter data collection ::::'
' I will put code below into a loop to enter multiple values if it works'

'Data collecton'
appIE.document.getElementById("CPH_MasterBody_CPH_EtlMasterBody_DDL_DataCollection").Value = 120
'File location tab 16'
appIE.document.getElementById("CPH_MasterBody_CPH_EtlMasterBody_TXT_SourceConnectionString").Value = "Y:\Databases\2019-Kv9xQ.xls"
'start date tab 18 '
appIE.document.getElementById("CPH_MasterBody_CPH_EtlMasterBody_TXT_PeriodStartDateTime").Value = "01/09/2019"
'End date tab 19'
appIE.document.getElementById("CPH_MasterBody_CPH_EtlMasterBody_TXT_PeriodEndDateTime").Value = "30/09/2019"
'publication date  tab 20 '
If ThisWorkbook.Sheets("Data").Range("I3").Value <> "" Then
appIE.document.getElementById("CPH_MasterBody_CPH_EtlMasterBody_TXT_PublicationDateTime").Value = "14/11/2019"

End If
'Source URL tab 21 '
If ThisWorkbook.Sheets("Data").Range("I3").Value <> "" Then
appIE.document.getElementById("CPH_MasterBody_CPH_EtlMasterBody_TXT_SourceUrl").Value = "https://www.england.nhs.uk"
End If

':::: Save record? click ok button ::::'
Application.Wait DateAdd("s", 3, Now)
appIE.document.getElementById("CPH_MasterBody_CPH_EtlMasterBody_BTN_Save").Click