VBA 检查网络上的多个 html 复选框

Question

目标是检查多个复选框取决于单元格 J(i) 中用分隔符“|”分隔的数据。

示例：J 列，第 (i) 行 = SkillA|SkillB|SkillC

复选框：勾选/点击这3个技能。

目前我只能通过在单元格 J 中存储 1 个 id 来选择 1 个复选框：

单元格 J = SkillA

Doc.getElementById(sht.Range("J" & i)).Click

完整代码：

    Dim sht As Worksheet
    Set sht = ThisWorkbook.Sheets("Fields")
    Dim LastRow As Long
    Dim i As Long
    LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    Dim IE As Object
    Dim Doc As HTMLDocument
    Set IE = CreateObject("InternetExplorer.Application")
    '--------------------------------
    For i = 2 To LastRow
    IE.Visible = True
    IE.navigate sht.Range("A" & i).Value
    Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
    Loop
    Set Doc = IE.document
code....
code....
     Doc.getElementById("tab6").Click
     Doc.getElementById(sht.Range("J" & i)).Click

    Next i
    IE.Quit
    MsgBox "Process 100% completed"
    End Sub

Answer 1

有点令人困惑，但听起来您想使用 split 生成一个值数组，您可以将其作为复选框的 id 值传递

Dim values() As String, i As Long
values = Split(sht.Range("J" & i).Value, "|")

For i = LBound(values) To UBound(values)
    On Error Resume Next
    Doc.getElementById(values(i)).Click
    On Error GoTo 0
Next