Excel Web App with Stock quotes

Hi,

How can I retrieve Stocks quote with Excel Web App? With Google Spreadsheet I use:

=GoogleFinance("GOOG"; "price")


Is there a similar function with Excel Web App (maybe integrated with MSN)?

Thanks for any help,

Jacare

There's nothing built in, but you can use a bit of code:

Public Function GetPrice(Ticker As String) As Double
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "http://uk.finance.yahoo.com/q?s=" & Ticker
    .send
    Do: DoEvents: Loop Until .ReadyState = 4
    GetPrice = Split(Split(.responsetext, "yfs_l84_" & LCase(Ticker) & """>")(1), "<")(0)
    .abort
End With
End Function

You can then use this in a worksheet: =GetPrice("GOOG")

Hello Kyle, thanks for your answer. But how can I insert a code at the Excel Web App? By Excel 03/07/10, there is no problem, but how can I use VBA with Excel Web APP?

Thanks again,
Jacare

Ah right, missed that bit. No idea, never used it