Excel VBA: установите флажок с меткой и без имени - PullRequest
Новая
       17

Excel VBA: установите флажок с меткой и без имени

0 голосов
/ 10 сентября 2018

Я пытаюсь автоматизировать процесс, и одной из задач является установка флажка на веб-сайте.Это единственный код, который я могу найти, который связан с этим конкретным флажком: 

<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
...