' Run Time Error 424 'Object Required Error in excel VBA -
i'am trying run below code in explorer 11. running fine in explorer 9/8 getting error when trying run in explorer 11.
run time error '424' object required
i think there missing unable it. please see below part of code.
sub extract_statusus_test() dim sheetname dim internetexplorer dim onlypatnum dim ieelement object onlypatnum = "7989466" set = new internetexplorer a.navigate "http://portal.uspto.gov/external/portal/pair" a.visible = true loop until a.readystate = readystate_complete msgbox ("click ok after entering re-captcha") application.wait + timevalue("00:00:05") loop until a.readystate = readystate_complete application.wait + timevalue("00:00:04") dim inp if len(onlypatnum) > 7 each inp in a.document.getelementsbytagname("input") if ucase(inp.title) = ucase("publication number") application.wait + timevalue("00:00:01") inp.focus inp.click exit end if next inp else each inp in a.document.getelementsbytagname("input") if ucase(inp.title) = ucase("patent number") application.wait + timevalue("00:00:01") inp.focus inp.click exit end if next inp end if application.wait + timevalue("00:00:02") a.document.getelementbyid("number_id").value = onlypatnum application.wait + timevalue("00:00:02") a.document.getelementbyid("submitpair").click application.wait + timevalue("00:00:02") until a.readystate = readystate_complete doevents loop application.wait + timevalue("00:00:10") set ieelement = a.document.getelementbyid("bibview") msgbox ieelement.innertext end sub
i'am getting error in line of code.
a.document.getelementbyid("number_id").value = onlypatnum
i appreciate if help.
Comments
Post a Comment