使用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()，因为我认为它没有。{/ p>

有什么建议吗？

Answer 1

虽然您的复选框没有ID，但它确实有一个Class。没有看到更多的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）附加到该语句的末尾？这意味着您将该类的第一个实例分配给该变量。如果此复选框是唯一一个类名为复选框的对象，那么这不会成为问题，但如果不是，则可能需要更改此编号。