Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

_Webbrowser4

Status
Not open for further replies.

mccartmd

Programmer
Feb 3, 2003
63
US
Hi:
Thanks to Craig from Thread 1254-914646, am able to download data using the following code calling various URLs ... and have this running by macro at midnights, 5 days a week. . .
Occasionally, it hangs, with an "Internet Script Error"
whereby if btn clicked "No". . .it continues to run.
My question is, is there a OLECMD that I could add to
go beyond or "set to no" or ignore this Script error?
Appreciate any feedback.
Thank you
Michael

#DEFINE OLECMDID_SELECTALL 17
#DEFINE OLECMDEXECOPT_PROMPTUSER 1
#DEFINE OLECMDEXECOPT_DONTPROMPTUSER 2
ThisForm._Web.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0)
#DEFINE OLECMDID_copy 12
#DEFINE OLECMDEXECOPT_PROMPTUSER 1
#DEFINE OLECMDEXECOPT_DONTPROMPTUSER 2
ThisForm._Web.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0)
SELECT importpricingall
APPEND blank
Replace importpricingall.pricedumpall WITH _cliptext + CHR(13)+CHR(10)
Replace thisdate WITH DATE()
REPLACE FILENAME WITH 'Pricing'
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top