Excel VBA：单击具有标签且没有名称的复选框

Question

我正在尝试使流程自动化，其中一项任务是单击网站上的复选框。这是我可以找到的唯一与此特定复选框相关的代码：

<label class="chbx" for="RiverFlood_MapServer"></label>

在此网站上，当您首次加载它时，会关闭一些下拉菜单。您必须打开它们才能单击此框。我不确定这是否是我无法完成这项工作的部分原因。

这就是我为完成任务的特定部分而编写的内容。

Dim Login As MSHTML.HTMLDocument
Set Login = IE.document

这里还有其他一些东西，例如自动登录。此时，它也已经导航到页面。

Dim layer As MSHTML.IHTMLElement
Dim layers As MSHTML.IHTMLElementCollection

Set layers = Login.getElementsByTagName("chbx")

For Each layer In layers

    If layer.Label = "RiverFlood_MapServer" Then
        layer.Click                
    Else
    End If

Next layer