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

我想用...

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()，因为我认为它没有。

有什么建议么？

最佳答案

尽管您的复选框没有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)吗？这意味着您正在将该类的第一个实例分配给变量。如果此复选框是唯一具有该复选框的类名称的对象，则不会有问题，但是如果不是，则可能必须更改此数字。