使用VBA编辑网页标记

时间:2018-05-08 18:04:16

标签: javascript html vba

我正在尝试使用VBA单击网页中的一行表(它是IBM的JAZZ Server) 如果我手动点击该行,HTML代码会更改。(JavaScript)。

在点击行之前,HTML网页包含:

<... class = "DropDownButton" ....>

点击行后,HTML网页包含:

<...class = "DropDownButtonPressed" ...>

班级名称发生变化。我不能共享网页的网址,因为你应该有一个帐户。我想点击下拉按钮。我可以点击网页上的按钮点击功能(因为它们只是按钮而不是下拉按钮)。 这就是页面的样子。我想点击突出显示的下拉按钮。 Web Page

在检查网页时,您看到的是:

Highlighted is the drop down button

单击下拉菜单后,这就是网页的更改方式:

enter image description here

任何人都可以帮我解决这个问题。任何人都可以向我推荐一些资源或博客,其中点击使用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

0 个答案:

没有答案