アクセスからWeb APIを呼び出す

Question

Access 2010アプリケーションからWeb APIを呼び出す必要があります。これは、Access 2010のAPIを使用して初めて作業する方法で、これを行う方法はわかりません。私が呼び出す必要があるAPIは次のとおりです。https://currencylayer.com/

APIは2つ以上の通貨間で通貨交換を行います。私のアプリケーションはヨーロッパとアメリカの企業ユーザーによって使用されるので、ユーザーがレポートを作成するときには、その通貨を考慮する必要があります。私はウェブサイトからいくつかの例を試しましたが、フォーマットが頻繁に変わるように見えるように、私はそれを読む方法がわからないJSONファイルを生成します。

Answer 1

MSXMLライブラリ（最新のすべてのコンピュータにデフォルトでインストールされています）を使用できます。

例：

Public Sub GetQuote2() 

Dim objXML   As Object 
Dim strSymbol  As String 
Dim strURL   As String 
Dim strWFormat  As String 

Set objXML = CreateObject("MSXML2.XMLHTTP") 

strURL = "http://ca.finance.yahoo.com/d/quotes.csv?s=" 
strWFormat = "&f=sl1d1t1c1ohgv&e=.csv" 

strSymbol = "MSFT" 

objXML.Open "GET", strURL & strSymbol & strWFormat, False 
objXML.Send 

Debug.Print "Symbol = " & Split(objXML.ResponseText, ",")(0) 
Debug.Print "Trade = " & Split(objXML.ResponseText, ",")(1) 
Debug.Print "Date = " & Split(objXML.ResponseText, ",")(2) 

End Sub