如何在Excel中使用VBA单击图标

Posted 2021-04-30

我对VBA并不陌生，但是我对编写与Web交互的任何东西都不陌生。我可以打开网页，其中包含几个图标。我需要有关单击特定图标的帮助。这是当我右键单击所需图标并单击“检查元素”时出现的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="RevenueCycle P0657 YAVA_AZ"
        src="Resources/Icon/azlhdjQ2QWJGVVQxcHpUcEJ5RG5FcEZwcytzPQ--
?size=48"
        iconid="akltdjQrWJGVVQxcHpUcEJ7RG3FcEZztytzLS">
    </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 & _
("RevenueCycle P0657 YAVA_AZ")
    oHTML_Element.Click   'This does not work!
Next
End Sub

任何帮助将不胜感激。谢谢！

答案

这是您要匹配的alt属性的值。无循环。