Web query function...

[gidsy]

Hi,

Can anyone please tell me what this function does...There is a formula in the sheet that reads...GetStockYahoo(B32,D32)...where B32 = NZDAUD=X and D32 = 0.7536

Function GetStockYahoo(STOCK, DEST)

With ActiveSheet.QueryTables.Add("URL;http://finance.yahoo.com/d/quotes.csv?s=" & STOCK & "&f=l1&e=.csv", DEST)
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.RefreshStyle = xlOverwriteCells
.Refresh BackgroundQuery:=False
.SaveData = True
End With

GetStockYahoo = ""

End Function

Many thanks

 

[sijpie]

The function creates a new query for an external data source and pulls data form the Yahoo Finance tables on the passed stock. It says to overwrite existing daa in the results table.

 

[gidsy]

Is there any way of knowing if the external data source is still valid or exists?

 

[sijpie]

I haven't a clue...