Auto-Update Currency Exchange rates in Access 2010

From this site daily files can be obtained:

http://www.xe.com/dfs/product.php

/gustav

yes, but manually.... I need an automatic way to access the info from the internet...
It's the first time I try something like this, so I have no idea of how to proceed. A sort of XML perhaps?...

... and I need a way to read it from a function in Access...

> yes, but manually....

No, you can download the file or:

<quote>
Only you have access to your Datafeed. The Datafeed serves up a currency rate file in response to a standard HTTP GET request made by your server - a process many of our clients automate. When you register for the service, we assign you a unique URL where you can access the data, and you register the IP range from which you will make your request. If a request to that unique URL does not match the IP address you registered, the feed will block the access.
</quote>

I don't have an account so I don't know the details, but you can create a trial account and get all the support you need.

It's quite easy to download a file:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) _
  As Long


Public Function DownloadFile( _
  ByVal strURL As String, _
  ByVal strLocalFilename As String) _
  As Long
  
' Download file or page with public access from the web.
' 2004-12-17. Cactus Data ApS, CPH.

' Usage, download a file:
' lngRet = DownloadFile("http://www.databaseadvisors.com/Graphics/conf2002/2002ConferencePicsbySmolin/images/dba02smolin27.jpg", "c:\happybassett.jpg")
'
' Usage, download a page:
' lngRet = DownloadFile("http://www.databaseadvisors.com/conf2002/conf200202.asp", "c:\dbaconference.htm")

' Returns 0 if success, error code if not.
' Error codes:
' -2146697210 "file not found".
' -2146697211 "domain not found".

' Limitation.
' Does not check if local file was created successfully.

  Dim lngRetVal As Long
    
  lngRetVal = URLDownloadToFile(0, strURL & vbNullChar, strLocalFilename & vbNullChar, 0, 0)
  
  DownloadFile = lngRetVal
  
End Function

Select allOpen in new window

/gustav

Seems interesting. I'm going to check it out.
Sorry I'm taking so long to reply, but I´m very busy lately :(

just wondering how you went with this? and if you got it to work?