html - 如何在不使用 Sendkeys 的情况下在 Excel 中运行网站表单？

Question

我正在尝试使用 Excel VBA 在网站上填写表格。我创建了一个 InternetExplorer.Application，导航到该页面并查找了一堆数据，使用 If UserForm1.TC2.Value = True Then 或类似 PostCode = objIE.document.getElementsByName ("ProjectFile-ProposalAddress-PostCode")(0).Value 等。

然后，我导航到一个新页面，并希望使用我以前的数据填写它。

这就是我遇到麻烦的地方。我想勾选“新许可证”复选框，其代码是；

<form id="document-form">
<div class="generate-form form-horizontal">
<div class="form-group"><label class="col-sm-3 control-label"><span>New Permit</span></label><div class="input col-sm-7">
<div class="checkbox">
<input type="checkbox" data-bind="checked: NewPermit" />
</div></div></div><div class="form-group"><label class="col-sm-3 control-label"><span>Staged Permit</span></label><div class="input col-sm-7">
<div class="checkbox">
    <input type="checkbox" data-bind="checked: StagedPermit" />
</div>

没有名字可以锁定。我不是 HTML 专家，但还有一些代码引用了这个复选框(我认为)

 var model = {  "NewPermit": null,   "StagedPermit": null,  "AmendedPermit": null,

等

我已经使用 .getElementsByTagName("Span") 和各种 .tagName 等在代码中运行了一个循环。以下结果是针对新许可框的:

.tagName = 跨度

.outerHTML = 新许可

.outerText = .innerHTML = .innertext = 新许可证

.isContentEditable = False

.tostring = [对象 HTMLSpanElement]

.ID = ""

这是密码登录，我不能公开发布链接。但是可以通过PM等方式得到答案。

Answer 1

使用 getElementsByTagName('input') 然后使用 Checked = True

Dim element as Object
element = getElementsByTagName('input')
element.Checked = True

假定复选框是页面上唯一的输入元素。如果不是，则循环并确定所需的复选框