Access Denied in excel VBA when using web.send -
i checking stock price in excel macro using following code. however, received during "web.send"
run-time error '-2147024891 (80070005)':
access denied
since fine until yesterday , there no other information cannot figure out reason. can check this? thank much.
sub checkindex() sheets("temp").range("a:a").clear url = "https://www.google.com.hk/finance?q=indexhangseng:hsi" set web = createobject("microsoft.xmlhttp") web.open "get", url, false web.send webdata = split(web.responsetext, vblf) j = 0 ubound(webdata) thisworkbook.worksheets("temp").cells(j + 1, 1).numberformatlocal = "@" thisworkbook.worksheets("temp").cells(j + 1, 1).value = webdata(j) next j end sub
Comments
Post a Comment