Как щелкнуть значок с помощью VBA в Excel - PullRequest
Новая
       72

Как щелкнуть значок с помощью VBA в Excel

1 голос
/ 13 октября 2019

Я не новичок в VBA, но я новичок в кодировании всего, что взаимодействует с сетью. Я могу открыть веб-страницу с несколькими иконками. Мне нужна помощь при нажатии на конкретную иконку. Вот HTML-код, который появляется, когда я щелкаю правой кнопкой мыши нужный значок и нажимаю «Проверить элемент»: 

<div title="" class="myapps-myapp resource" position="N" index="22">
    <div class="myapps-icon-background"></div>
    <a class="myapps-icon" href="#">
    <img class="iconImage" alt="SomeName"
        src="Resources/Icon/aklhdjQ2QWJGVVQxcHpUcEJ5RG5FcEZwcytzPQ--
?size=48"
        iconid="akltdjStWJGVVRxcHpUcEJ7QG3FcEZwtytzMT">
    </a>
    <div class="myapps-status"></div>
    <div class="myapps-name">SomeName</div>
    </div>

Вот мой код VBA, который у меня имеется: 

Sub test()
Dim oHTML_Element As IHTMLElement
Dim oBrowser As Internet Explorer
Dim objIE As Variant
Set objIE = Create Object("InternetExplorer.Application")
objIE.navigate "http://The webpage goes here" 'This open the site       
While objIE.readyState <> READYSTATE_COMPLETE And objIE.readyState & _
    <> READYSTATE_LOADED
    DoEvents
Wend
For Each oHTML_Element In objIE.document.getElementsByName & _
("SomeName")
    oHTML_Element.Click   'This does not work!
Next
End Sub

ЛюбойПомощь будет принята с благодарностью. Спасибо!

1 Ответ

0 голосов
/ 13 октября 2019

Это значение атрибута alt, которому вы хотите соответствовать. Без цикла. 

objIe.document.querySelector("[alt='RevenueCycle P0657 YAVA_AZ']").click

Хотя на самом деле это может быть тег a, который вы хотите щелкнуть 

objIe.document.querySelector("[index='22'] .myapps-icon").click

Подробнее:

  1. css селекторы
  2. querySelector
...