如何将单击事件添加到Excel VBA上的子菜单项？

Question

我有一个网页，并在该页面上有一个菜单项。我想点击一个子菜单项。的HTML是：

<a href="/apex/COSCaseCreatePage?oMenu=Cases_Submit Case&pagename=COSCaseCreatePage">Submit Case</a> 

元素的XPath是：.//*[@id='liSubmitCase']/a

我希望能够点击此。

Answer 1

没有额外的细节，很难推荐更好的方法。然而，像下面写的东西应该工作。

Sub TestFind() 
    Dim Elements As Object 
    Dim Element As Object 

    'I'm assuming you already have a pointer 
    'to Internet Explorer 

    Set Elements = IE.Document.getElementsByTagName("a") ' get all 'a' tags 

    For Each Element In Elements 
     On Error Resume Next ' you may get an error here 
          ' the object may not have an innertext property 
     If Element.InnerText = "Submit Case" Then ' The text you are looking for 
      Element.Click ' Click the element 
      Exit For ' Exit for loop 
     End If 
    Next Element 

End Sub