当button没有名称/ ID时，单击带有VBA的JSbutton
我不能为我的生活弄清楚如何点击下面的button与VBA。 任何帮助，将不胜感激。 我已经能够填充用户名/密码字段，因为他们有一个名称，所以我使用getElementsByName但button没有名称或ID。
具体的button代码是：
<table class="button"><tr><td><div class="button-left"><input type="submit" class="form-button" value="Submit" > 这是完整的脚本/表单代码，以防止它的帮助
<form name="loginFormBean" method="post" action="/XXXXXXXX/login.do" onsubmit="return validateForm(this)"> <TABLE border="0" cellpadding="5" cellspacing="0"> <TR> <TD class="bigGreyContent" nowrap>User ID</TD> <TD class="bigGreyContent" align="left"> <input type="text" name="username" maxlength="50" size="40" value="" class="bgGreenColor"> </TD> </TR> <TR> <TD class="bigGreyContent" nowrap>Password</TD> <TD class="bigGreyContent" align="left"> <input type="password" name="password" maxlength="50" size="40" value="" class="bgGreenColor"> </TD> </TR> <TR> <TD colspan="2" align="center"> <BR> <table class="button"><tr><td><div class="button-left"><input type="submit" class="form-button" value="Submit" ></div><div class="button-right"></div></td></tr></table> </TD> </TR> </TABLE> </form>
编辑：我有以下引用启用（除了默认的）：
Microsoft HTML对象库Microsoft Internet控件Microsoft WinHTTP Services V5.1 Microsoft XML，v6.0
我目前的代码是：
Sub XXXX() Dim objIE As InternetExplorer Dim http As New MSXML2.XMLHTTP60 Dim html As New HTMLDocument Dim btn As Object Set objIE = New InternetExplorer Set btn = html.getElementsByClassName("button-left")(0).getElementsByTagName("input")(0) objIE.Visible = True objIE.navigate "http://XXXX/login.jsp" Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop objIE.document.getElementsByName("username")(0).Value = "XXXX" objIE.document.getElementsByName("password")(0).Value = "YYYY" btn.Click End Sub
假设class =“button-left”是你的html中的第一个出现，试试这个：
Dim btn As Object Set btn = html.getElementsByClassName("button-left")(0).getElementsByTagName("input")(0) btn.Click
编辑：
如果您还没有，请从Tools -> References添加Microsoft HTML Object Library和Microsoft XML v6.0 。
目前你被困在你的方法和我的方法之间。 你需要select一个，所以请试试这个：
Sub XXXX() Dim http As New MSXML2.XMLHTTP60 Dim html As New HTMLDocument Dim btn, usr, psw As Object With CreateObject("MSXML2.serverXMLHTTP") .Open "GET", "http://XXXX/login.jsp", False .send html.body.innerHTML = .responseText End With Set usr = html.getElementsByTagName("Form")(0).getElementsByTagName("input")(0) Set psw = html.getElementsByTagName("Form")(0).getElementsByTagName("input")(1) Set btn = html.getElementsByTagName("Form")(0).getElementsByTagName("input")(2) usr.Value = "Username" psw.Value = "Password" btn.click Set html = Nothing: Set btn = Nothing: Set usr = Nothing: Set psw = Nothing End Sub
您的代码几乎是corect。您需要设置Set html = objIE.document ，然后更改Set btn = html.getElementsByClassName(...)的位置，以便在文档被加载后。 顺便说一句。 @Tehscript的答案也适用。
Dim objIE As InternetExplorer Dim http As New MSXML2.XMLHTTP60 Dim html As New HTMLDocument Dim btn As Object Set objIE = New InternetExplorer objIE.Visible = True objIE.navigate Path Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop Set html = objIE.document ' <-- This is the cause of the error 91 Set btn = html.getElementsByClassName("button-left")(0).getElementsByTagName("input")(0) ' <-- Button can be set after the document has been loaded objIE.document.getElementsByName("username")(0).Value = "XXXX" objIE.document.getElementsByName("password")(0).Value = "YYYY" btn.Click