dom - 使用 InternetExplorer.Application 对象检查网页上的复选框

Question

我想用...

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

使用适当的代码来检查网页上的复选框

呈现页面上的 HTML 代码是...

<form class="form-inline" style="float:right">
    <div class="checkbox">
        <label style="padding-top: 1px">
            <input data-bind="checked: orderBook.showAll" style="top:2px"  
             type="checkbox" /> Show All
        </label>
    </div>
</form>

我不能使用 getElementsByID()，因为我认为它没有。

有什么建议吗？

Answer 1

虽然您的复选框没有 ID，但它有一个类。没有看到更多的 HTML 代码，我不能完全确定，但下面的代码应该允许您将复选框设置为一个变量:

Option Explicit

Sub test

    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")

    ' Navigate to desired web page

    ' Code to ensure page is fully loaded

    Dim cBox As Object
    Set cBox = IE.document.getElementsByClassName("checkbox")(0)

End Sub

然后您可以根据需要使用cBox(可能像cBox.Click 或其他方法)。注意到我在该语句的末尾附加了 (0) 吗？这意味着您将该类的第一个实例分配给变量。如果此复选框是类名称为复选框的唯一对象，那么这将不是问题，但如果不是，您可能必须更改此数字。