** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Access y la Red: Google Finance Queries
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAccess y la Red: Google Finance Queries

 Responder Responder
Autor
Mensaje
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Tema: Access y la Red: Google Finance Queries
    Enviado: 20/Agosto/2013 a las 23:01
Este es un código simple para obtener la tasa de cambio de monedas usando Google Finance.

En la cadena strWeb, luego del igual viene el código de 3 letras de las 2 monedas que se quiera averiguar, en este caso Euro (EUR) y Pesos Colombianos (COP).

Los códigos los pueden obtener de esta página:
http://www.oanda.com/help/currency-iso-code-country#A
 
Por supuesto, hay más datos interesantes que devuelve el responseText, pero el ejemplo es solo para obtener la conversión.

Uso:

Private Sub Command0_Click()
    Debug.Print CurConvert("Eur", "Cop")
End Sub

Función:

'---------------------------------------------------------------------------------------------------------------------------------------
' Nombre:      CurConvert
' Propósito:   Usa Google Finance para obtener la conversión entre dos monedas
' Argumentos:
'              strCur1:      Código de 3 letras de la primera moneda
'              strCur2:      Código de 3 letras de la segunda moneda
' Autor:       Diego F.Pereira-Perdomo
' Fecha:       Ene-02-2013
'---------------------------------------------------------------------------------------------------------------------------------------
Function CurConvert(strCur1 As String, strCur2 As String) As String
    Dim xml     As Object
    Dim strWeb  As String
    Dim str     As String
    Dim quote   As String
    Dim HTML    As Object
  
    strWeb = "http://www.google.com/finance?q=" & UCase(strCur1) & UCase(strCur2)
  
    Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
  
    With xml
  
        .Open "GET", strWeb, False
        .send
        str = .responseText
      
        Set HTML = CreateObject("HTMLfile")
      
        With HTML
            .body.innerHTML = str
            quote = .getElementById("currency_value").innerText
            CurConvert = Left$(quote, InStr(1, quote, UCase(strCur2)) + 2)
        End With
      
        Set HTML = Nothing
    End With
  
    Set xml = Nothing

End Function

"To VBA or not to VBA... that's the question" DFP
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable