excel - Data entry using VBA -
i'm trying submit data on html page using vba. html page contains java scripts , secured page.
i tried use codes below, opens website window , doesn't fill out texts on page.
i know still need add codes loginname/password valification, msgbox (for stop control), submit button click codes.
could help?
sub tes() dim ie object dim trackid object set ie = createobject("internetexplorer.application") ie.navigate "https://abcxxx.com/xxxx/xxxxxxx/pages/custinfo.aspx" ie.visible = true until ie.readystate = 4: doevents: loop set trackid = ie.document.getelementbyid("abc00_abc001_234_5678_81b0_txtcustomerno") trackid.value = range("a2").value trackid.form.submit end sub
:::header informaion:::
<head id="ctl00_head1"></head> <body onload="javascript:if (typeof(_spbodyonloadwrapper) != 'undefined') _spbodyonloadwrapper();" scroll="yes"> <form id="xxxform" onsubmit="javascript:return webform_onsubmit();" action="/xxxx/xxxxxxx/pages/custinfo.aspx" method="post" name="xxxform"> <div></div> <script type="text/javascript"></script> <script type="text/javascript" src="/webresource.axd?d=l9_faniftksgpmjqqjxgzkhm0a9cutq0e2fmvidi8…mlhiyeyfbecr_sy_yd1hlop8dnx1wi0dtdidvw1&t=634605258709717464"></script> <script></script> <script language="javascript" type="text/javascript"></script> <script></script> <script type="text/javascript" src="/webresource.axd?d=wawugccad8-eehmrxtdwchppbriz4dtxvsld4vgrj…1wyuhxu_xtb_ki5funtsbkr7ujl75sqy7cxp281&t=634605258709717464"></script> <script type="text/javascript" src="/webresource.axd?d=zxhglhr5ybgsmerqplhm82fd2jq9gjiao6hzhll5e…mnkmvlq-2wyeuucpncwpgompxqydqdmsapddea1&t=634605258709717464"></script> <script type="text/javascript"></script>
you have redacted actual website address no 1 can find out doing wrong. method appears fine - same code works me on website:
sub main() dim ie object dim trackid object set ie = createobject("internetexplorer.application") ie.navigate "http://www.wikipedia.org/" ie.visible = true until ie.readystate = 4: doevents: loop set searchinput = ie.document.getelementbyid("searchinput") searchinput.value = "visual basic applications" searchinput.form.submit end sub
Comments
Post a Comment