我正在尝试使用VBA单击网页中的一行表(它是IBM的JAZZ Server) 如果我手动点击该行,HTML代码会更改。(JavaScript)。
在点击行之前,HTML网页包含:
<... class = "DropDownButton" ....>
点击行后,HTML网页包含:
<...class = "DropDownButtonPressed" ...>
班级名称发生变化。我不能共享网页的网址,因为你应该有一个帐户。我想点击下拉按钮。我可以点击网页上的按钮点击功能(因为它们只是按钮而不是下拉按钮)。 这就是页面的样子。我想点击突出显示的下拉按钮。
在检查网页时,您看到的是:
单击下拉菜单后,这就是网页的更改方式:
任何人都可以帮我解决这个问题。任何人都可以向我推荐一些资源或博客,其中点击使用VBA的下拉按钮会有所帮助。非常感谢。
我的代码:
Sub BrowseToSite()
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLIn As MSHTML.IHTMLElement
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLButton As MSHTML.IHTMLElement
'URL$
'Set IE = New SHDocVw.InternetExplorer
IE.Visible = True
IE.Navigate "https://jazz.net/jazz/web/projects/Jazz%20Collaborative%20ALM#action=com.ibm.team.workitem.newWorkItem&type=defect&ts=15279513017930&tab=com.ibm.team.workitem.tab.links"
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
'IE.Document.forms("searchform").elements("search").Value = "Sachin"
Set HTMLDoc = IE.Document
Set HTMLButtons = HTMLDoc.getElementsByClassName("DropdownArrow")
HTMLDoc.querySelector ("span[dojoattachpoint=""_dropdownArrow""]").Click // Nothing is hhappening
'Tried also with
HTMLDoc.querySelector(".HTMLButtons").Click
End Sub