Question

我目前遇到VBA问题。我正在尝试勾选外部网站上的复选框。这是我正在使用的html代码段：Html code from external website

我已经从代码段中删除了任何机密信息。这是我的VBA代码：

Set elements = objIE.document.getElementsByTagName("input")
    For Each ele In elements
        ele.toString

        If ele.Value = "xxx" Then ele.Click

    Next

因此，在此代码中，elements变量是一个对象，并且根本没有填充循环变量ele。我需要比较复选框中的值是否包含值xxx。我对VBA没有太多经验。

任何帮助将不胜感激

由于

Answer 1

我真的不知道这是否有效。但在VBA中

.Value

Checkbox的

属性是真或假的。显示的文本的属性是：

.Caption

Answer 2

此代码正确循环：

Sub test()
    Set objIE = CreateObject("InternetExplorer.Application")
    Dim elements, ele

    objIE.Visible = True
    For Each ip In Sheets("Sheet1").Range("A2:A13").Value
        objIE.Navigate ip
        Do Until Not objIE.Busy And objIE.ReadyState = 4
            DoEvents
        Loop
        Set elements = objIE.document.getElementsByTagName("input")
        For Each ele In elements
            ele.toString
            If ele.Value = "xxx" Then ele.Click
        Next
    Next
End Sub

VBA复选框网站互动

2 个答案: