I need to check 10 major currencies using the VBA below

[nector]

I have tried to check the world currencies using the VBA below by debugging, I seem not to get anywhere, can someone spot the error here?

Option Compare Database
Option Explicit

Public Sub exceljson()
Dim http As Object, JSON As Object, i As Integer
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://www.xe.com/currencyconverter/convert/?Amount=1&From=USD&To=GBP", False
http.Send
Set JSON = ParseJson(http.responseText)
i = 2
Debug.Print JSON
End Sub

 

[isladogs]

It would help if you said where it fails
Two possibilities:
a) missing reference - Microsoft XML v6.0
b) missing ParseJSON function - it isn't built into Access.

You should be able to get that function from

GitHub - VBA-tools/VBA-JSON: JSON conversion and parsing for VBA

JSON conversion and parsing for VBA. Contribute to VBA-tools/VBA-JSON development by creating an account on GitHub.

github.com

Or you could use my currency exchange rate tracker and save yourself some work

Currency Exchange Rate Tracker

This free Access app gets the latest currency exchange rates from an online data source in JSON format

www.isladogs.co.uk

 

[CJ_London]

what error are you getting? have you stepped through the code so you can see which line produces the error? Only thing I can see is I don't recognise ParseJson as a standard vba function so presumably it is a UDF - in which case is the error in that?

edit:
@isladogs - your github link has a 404 error - need to remove everything from the ' character

 

[isladogs]

@CJ_London
I fixed it earlier before your edit appeared

@nector
What is the point of the i=2 line in your code?

 

[arnelgp]

there is currency/ exchange rate on Sample Database forum:
(2) Exchange Rate/ currency conversion | Access World Forums (access-programmers.co.uk)