Live stock quote

[BradC]

Is it possible to pull a stock price from say finance.yahoo.com or google.com/finance and insert it into a field called MarketPrice based on a selection in a combo box called StockCode ?

Any help appreciated

 

[SimonB1978]

Google has some APIs for this. Not sure if they can work in Access though...

http://code.google.com/apis/finance/

Simon B.

 

[darbid]

Is it possible to pull a stock price from say finance.yahoo.com or google.com/finance and insert it into a field called MarketPrice based on a selection in a combo box called StockCode ?

Any help appreciated

Yes you can do this. You could go to a webpage and "scrape" the webpages information.

Or as the other person has commented you can use API's Google and Yahoo have them. What this means is you send a http request for information and you get back an answer which for VBA is in XML format. You then parse the XML and work on.

If this is what I want let me know and we can look at some code.

 

[BradC]

My Son found some code and modified to work for me.

Public Function fncSharePrice(strSymbol)
Dim strURL As String
strURL = "h t t p : / / download.finance.yahoo.com/d/quotes.csv?s=" & strSymbol & ".AX&f=sl1&e=.csv"

Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET", strURL, False
oXHTTP.Send

'Use split to Return Price only
Me.MarketPrice = Split(oXHTTP.responseText, ",")(1)

Set oXHTTP = Nothing
End Function

 

[darbid]

looks good.