How to get HTML element with VBA in Excel? -
i have html in excel:
<form name="scform" action="online_range.aspx" autocomplete="off"> <input name="acctno" type="hidden" value="3949067512"> <table width="100%" border="0" cellpadding="3"> <tbody><tr> <td width="6%"></td> <td width="18%" align="center" valign="middle"><font color="#ffffff" face="verdana" size="1"><b>numbers</b> <td width="18%" align="right" valign="middle"><font color="#000000" face="verdana" size="1">**000,000,000,000.00**</font></td> <td width="18%" align="right" valign="middle"><font color="#000000" face="verdana" size="1">**100,100,100,100.00**</font> <td width="5%" align="center" valign="middle"><font color="#000000" face="verdana" size="1"> <!--<a href="javascript:document.scform.submit();" onmouseover="sctest('0479281963'); window.status='account details'; return true;">--> <!-- insert buildmenu - apsmith --> <script>buildmenu_scphp(0,'')</script> <a onmouseover="showmenu(event,linksetscphp[0]); sctest(479281963, 'im'); window.status='account details';" onmouseout="delayhidemenu()" href="javascript:document.scform.submit();"> <!-- end buildmenu - apsmith --> <img width="21" height="17" src="/images/detail2.gif" border="0"></a> </font> </td> </tr> </tbody></table></td> <td width="3%"></td> </tr></tbody></table></form>
i want value td 000,000,000,000.00
, 100,000,000,000.00
have no luck.
here's tried:
dim ie new internetexplorer dim doc htmldocument set ie = createobject("internetexplorer.application") ie.visible = true 'navigate website ie.navigate "https://secure1.bpiexpressonline.com/authfiles/login.aspx?url=/direct_signin.htm" 'loop until page load complete doevents loop until ie.readystate = readystate_complete set doc = ie.document doc.getelementbyid("userid").value = range("e23").value doc.getelementbyid("password").value = range("e24").value doc.getelementbyid("login").submit 'loop until page load complete doevents loop until ie.readystate = readystate_complete 'dim tb object, tr object, th object dim tb object set tb = doc.getelementsbytagname("acctno") here? tried getelementsbyid(td)(1) , on, no luck.
by using getelementsbyid(td)(n) there's no error output wrong, can me or teach me how parse form type.
thanks in advance
as understand have difficulties constructing path desired element?
1) add id
attribute table row element, be:
<table width="100%" border="0" cellpadding="3"> <tbody><tr id="row_1">
2) can use:
dim row object set row = doc.getelementsbytagname("row_1");
3) can retrieve values this:
row.getelementsbytagname("td")(1).getelementsbytagsname("font")(1).innertext
Comments
Post a Comment