html - VBA 转 HTML 按回车键
问题描述
我制作了一个简单的脚本,可以从 excel 中复制数据,然后填写 Web 表单。
我遇到以下问题。
网页中有一个文本框,其中有一个搜索框,因此当脚本粘贴值时,它们不会被视为已插入,因为您必须按 Enter。
粘贴值/运行此代码后有没有办法单击输入按钮或其他内容:IE.document.getElementById("Mgr_Login_382bcf2b-9082-42ff-9e73-6f9e45091581_$ClientPeoplePicker_EditorInput").Value = ThisWorkbook.Sheets("Audits" ).Range("B5")
这是代码:
Sub Autofill()
Dim IE As Object
Set IE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
IE.Visible = True
IE.navigate "https://share.amazon.com/sites/IPV/Lists/IPV%20Appeals%20tracker/NewForm.aspx?Source=https%3A%2F%2Fshare%2Eamazon%2Ecom%2Fsites%2FIPV%2FLists%2FIPV%2520Appeals%2520tracker%2FAllItems%2Easpx&RootFolder="
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
IE.document.getElementById("Title_fa564e0f-0c70-4ab9-b863-0177e6ddd247_$TextField").Value = ThisWorkbook.Sheets("Audits").Range("AB2")
IE.document.getElementById("Seller_x0020_ID_2b32b5fa-ace8-44d5-bba5-5c0e321671ed_$TextField").Value = ThisWorkbook.Sheets("Audits").Range("E2")
IE.document.getElementById("Country_65ced3ab-75bf-4553-9f05-de886924e70b_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("B2")
IE.document.getElementById("Inv_x0020_Date_5dbe2856-41fb-4aef-855a-8dbbe6de11a2_$DateTimeFieldDate").Value = ThisWorkbook.Sheets("Audits").Range("AC2")
IE.document.getElementById("Associate_x0020_Action_531eade2-6a1d-42d1-9d2a-fc6d3e0c4af7_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("J2")
IE.document.getElementById("Correct_x0020_Associate_x0020_Ac_a9544f81-7d7e-4b15-b296-9face63d64e7_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("K2")
IE.document.getElementById("SIV_x0020_Action_0f88f118-1664-4e5e-be08-5a5f32462936_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("T2")
IE.document.getElementById("Correct_x0020_SIV_x0020_Action_c8b6acb1-95db-4341-8d08-03b67460e36e_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("U2")
IE.document.getElementById("Metric_9e0d1003-9726-4257-80b3-12e39713671d_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("P2")
IE.document.getElementById("Site_04f27633-b5f4-4604-81a5-ba431ff7fbcd_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("A5")
IE.document.getElementById("Category_6df9bd52-550e-4a30-bc31-a4366832a87d_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("C5")
IE.document.getElementById("SIV_x0020_RFI_x002f_RFD_x0020_re_d2e21853-8e6e-448a-9e64-fb50cc4bd58a_$DropDownChoice").Value = ThisWorkbook.Sheets("Audits").Range("W2")
If InStr(1, (Range("Z2").Value), "No") > 0 Then IE.document.all.Item("Data_x0020_Correctly_x0020_Captu_1c33ffd0-1bf4-48d9-8ae3-c7fe4e349f4b_$RadioButtonChoiceField1").Checked = True
IE.document.all.Item("Scored_x0020_by_x003a__a5e5d0db-1090-42e1-8fff-fd9ff0dec3d0_$RadioButtonChoiceField0").Checked = True
IE.document.all.Item("Reversal_x0020_action_x0020_requ_c467e268-fde1-46c8-8f59-2e5e8d1eca2a_$RadioButtonChoiceField1").Checked = True
IE.document.getElementById("Inv_Login_aabe5556-9387-4868-a07c-6a171ec5ed91_$ClientPeoplePicker_EditorInput").Value = ThisWorkbook.Sheets("Audits").Range("C2")
IE.document.getElementById("Mgr_Login_382bcf2b-9082-42ff-9e73-6f9e45091581_$ClientPeoplePicker_EditorInput").Value = ThisWorkbook.Sheets("Audits").Range("B5")
IE.document.getElementById("Comments_fafc7954-eb53-4f71-9f39-b1bf295b95d2_$TextField_inplacerte").innerHTML = ThisWorkbook.Sheets("Audits").Range("O2")
End Sub
解决方案
推荐阅读
- python - 通过“工作流程”将数据发布到数据库(例如:字段更改为 20,创建新记录)
- laravel - 如何修复“Illuminate\Support\Collection::get(), 0passed in /AMPPS/www/lsapp/vendor/laravel/framework/src/Illuminate/Support/Traits/ForwardsCalls.php”
- python - 为什么下面的代码中需要“lambda”
- php - 模态中的 jQuery 验证通过 php 发送数据
- powerbi - 如何将计算列的每一行除以另一个计算列的总数?
- json - 如何选择 * WHERE JSON 键包含 ANY/IN(值数组)
- c# - 多行 JSON 到数据表
- google-cloud-platform - 有没有办法在模拟服务帐户时使用 gsutil?
- websocket - Squid4 转发代理从 ws 升级到 wss
- javascript - 防止数组在文本输入上循环并从该数组中提取值 | Vue