Excel VBA-单击页面上的Javascript按钮

时间:2018-07-17 15:04:41

标签: vba excel-vba

我试图单击页面上的“发布”按钮,但是它总是会引发错误

<a unselectable="on" href="javascript:;" onclick="return false;" class="ms-cui-ctl-large" aria-describedby="Ribbon.PublishTab.Publishing.Publish.Menu.Publish.Publish_ToolTip" mscui:controltype="Button" role="button" id="Ribbon.PublishTab.Publishing.Publish-SelectedItem" style="height: auto;"><span unselectable="on" class="ms-cui-ctl-largeIconContainer"><span unselectable="on" class=" ms-cui-img-32by32 ms-cui-img-cont-float"><img unselectable="on" alt="" src="/_layouts/1033/images/format.png" style="top: -416px; left: -128px;"></span></span><span unselectable="on" class="ms-cui-ctl-largelabel" style="height: auto;">Publish</span></a>

上面是我要点击的按钮

我确实尝试了以下代码行: IE.Document.getElementById("Ribbon.PublishTab.Publishing.Publish-SelectedItem").Click

但仍然无法单击按钮。

希望有人可以提供帮助。

注意:我尝试执行此操作的原因是因为我需要发布大量文件,因此尝试使流程自动化

2 个答案:

答案 0 :(得分:0)

尝试

Replace$(IE.Document.getElementById("Ribbon.PublishTab.Publishing.Publish-SelectedItem").innerHTML, "unselectable=""on""","unselectable=""off""")

然后单击元素。

或者可能,

Call ie.document.getElementById("Ribbon.PublishTab.Publishing.Publish-SelectedItem").SetAttribute("unselectable","off")

然后单击。

无需说可以测试的URL,几乎不显示HTML和相关的JS。

答案 1 :(得分:0)

尝试

IE.Document.getElementById("Ribbon.PublishTab.Publishing.Publish-SelectedItem").FireEvent("onclick")