“点击”一个JavaScript按钮与VBA

无尽的谷歌搜索和许多解决方案似乎没有帮助。我总是收到不同类型的无尽错误，只是找不到一个优雅的方式来点击这个按钮，除非我让代码等待四秒钟，而我用鼠标手动点击它。“点击”一个JavaScript按钮与VBA

它适用于其他按钮，但我正在工作，如果这里的问题是嵌套的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>

东西将使我能够点击这个按钮会很棒。

来源

2016-12-21 P. Mann

'IE.document.getElementById（ “ctl00_cphMain_btnAddTab”）Click' –

你的美丽，谢谢。 –

@TimWilliams请添加您的答案，以允许P.Mann标记为已解决 – Blag

这应该工作：

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

来源

2016-12-22 17:58:26

“点击”一个JavaScript按钮与VBA

回答

相关问题