msxml3.dll Access Denied

Question

I have the following code:

Function filejson(json) 
  Dim objStream, strData 
  Set objStream = CreateObject(\"ADODB.S         


        

Answer 1

Try with a more recent version:

Set http = CreateObject("Msxml2.XMLHttp.6.0")

It could also be an issue with your Internet security settings (see here). Open the Internet Options applet in the Control Panel, select the zone for the website (probably "Trusted sites") in the Security tab and click Custom level….

In the section Miscellaneous set Access data sources across domains to Enabled.