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

如何在Excel中使用VBA单击图标,vba,internet-explorer,web-scraping,automation,queryselector,Vba,Internet Explorer,Web Scraping,Automation,Queryselector,我不是VBA新手,但我对编写任何与web交互的代码都是新手。我可以打开有几个图标的网页。我需要有关单击特定图标的帮助。 以下是我右键单击所需图标并单击“Inspect element”时显示的HTML: 名字 以下是我目前掌握的VBA代码: Sub test() Dim oHTML_Element As IHTMLElement Dim oBrowser As Internet Explorer Dim objIE As Variant Set objIE = Create Object("

我不是VBA新手,但我对编写任何与web交互的代码都是新手。我可以打开有几个图标的网页。我需要有关单击特定图标的帮助。 以下是我右键单击所需图标并单击“Inspect element”时显示的HTML:


名字
以下是我目前掌握的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
子测试()
尺寸oHTML\U元件作为IHTML元件
作为Internet Explorer的Dim oBrowser
Dim objIE作为变体
Set objIE=Create对象(“InternetExplorer.Application”)
objIE.navigate“http://The 网页在这里“'这将打开网站
而objIE.readyState readyState_完成和objIE.readyState&_
已加载READYSTATE_
多芬特
温德
对于objIE.document.getElementsByName和_
(“某物名”)
oHTML_元素。单击“此操作无效!”!
下一个
端接头

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

它是要匹配的
alt
属性的值。没有循环

objIe.document.querySelector("[alt='RevenueCycle P0657 YAVA_AZ']").click
虽然它实际上可能是您要单击的
标记

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


  • 它是要匹配的
    alt
    属性的值。没有循环

    objIe.document.querySelector("[alt='RevenueCycle P0657 YAVA_AZ']").click
    
    虽然它实际上可能是您要单击的
    标记

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