vba - Message from webpage. Stack overflow at line: 1 -
this code , above msg when run , f8 on line described below. have click ok button 17 times before can out of it. happens few web pages only, rest (1000s) work fine. tried on error resume next
before , after line no effect. idea how code can ignore msg , proceed?
dim xmlhttp object dim myurl string dim html object createobject("msxml2.serverxmlhttp") .open "get", myurl, false .setrequestheader "content-type", "text/xml" .setrequestheader "user-agent", "mozilla/5.0 (windows nt 6.1; rv:25.0) gecko/20100101 firefox/25.0" on error resume next .send set html = createobject("htmlfile") html.body.innerhtml = .responsetext 'getting err msg here when f8 on line end
have tried
on error resume err_label dim xmlhttp object dim myurl string dim html object createobject("msxml2.serverxmlhttp") .open "get", myurl, false .setrequestheader "content-type", "text/xml" .setrequestheader "user-agent", "mozilla/5.0 (windows nt 6.1; rv:25.0) gecko/20100101 firefox/25.0" .send set html = createobject("htmlfile") html.body.innerhtml = .responsetext 'getting err msg here when f8 on line end exit sub err_label: 'any error logging/reporting goes here exit sub
Comments
Post a Comment