使用 VBA “单击”一个 javascript 按钮答案

【问题标题】："Click" a javascript button with VBA使用 VBA “单击”一个 javascript 按钮
【发布时间】：2016-12-21 17:40:22
【问题描述】：

无休止的谷歌搜索和许多解决方案似乎没有帮助。我不断收到各种不同类型的错误，并且找不到单击此按钮的优雅方式，除非我让代码等待四秒钟，然后用鼠标手动单击它。

它适用于其他按钮，但如果这里的问题是嵌套的 doPostBack 和其中的许多 '' （从 "" 替换），我正在工作？

下面的代码（我已经删除了不相关的部分）

VBA 代码：

Sub IE_Clicks()

    Dim shellWins As ShellWindows
    Dim IE As InternetExplorer

    Set shellWins = New ShellWindows

    If shellWins.Count > 0 Then
    ' Get IE
    Set IE = shellWins.Item(0)
    IE.Visible = True
    Else
    ' Create IE
    Set IE = New InternetExplorer
    IE.Visible = True
    End If

    IE.Navigate ("[URL]")

Do While (IE.Busy Or IE.READYSTATE <> READYSTATE.READYSTATE_COMPLETE)
    DoEvents
Loop
    Call IE.document.parentWindow.execScript("WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions('ctl00$cphMain$btnAddTab', '', true, '', '', false, false))", "JavaScript")

    Set IE = Nothing
 End Sub

HTML 代码：

<input type="submit" name="ctl00$cphMain$btnAddTab" value="Add New" onclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions(&quot;ctl00$cphMain$btnAddTab&quot;, &quot;&quot;, true, &quot;&quot;, &quot;&quot;, false, false))" id="ctl00_cphMain_btnAddTab" class="ActionButton">

JavaScript：

<script type="text/javascript">
//<![CDATA[
var theForm = document.forms['aspnetForm'];
if (!theForm) {
    theForm = document.aspnetForm;
}
function __doPostBack(eventTarget, eventArgument) {
    if (!theForm.onsubmit || (theForm.onsubmit() != false)) {
        theForm.__EVENTTARGET.value = eventTarget;
        theForm.__EVENTARGUMENT.value = eventArgument;
        theForm.submit();
    }
}
//]]>
</script>

能让我点击这个按钮的东西会很棒。

【问题讨论】：

IE.document.getElementById("ctl00_cphMain_btnAddTab").Click
美女，谢谢。
@TimWilliams 请添加您的答案，以允许 P.Mann 标记为已解决
@TimWilliams ，实际上我有类似的问题，但是我的 HTML 代码没有 href 的 id。它使用相同的javascript。我无法单击按钮。 link你可能会在这篇文章中看到我的问题。

标签： javascript excel vba call

【解决方案1】：

这应该可行：

IE.document.getElementById("ctl00_cphMain_btnAddTab").Click

【讨论】：