Thank you for mentioning this! There was indeed an issue with request dates, e.g., the following won't work: The reason seems to be that this date range only includes a weekend. This is unexpected, in a way, because the Yahoo!

Oct 18, 2017 - We'll show you how to make your Excel charts self-update. Just add new data. With that change made, we're ready to work on our chart.

Website itself automatically corrects such a request and shows data for the preceding Friday. The CSV web service apparently does not do that. Hence, in the macro, it makes sense to look back for a full week: dtPrevDate = dtDate - 7 That way you will download data for a full week and still just take the quote from the most recent date. The article above is adjusted accordingly, and the code should work fine again. If you encounter other errors, try to un-comment the lines with 'Debug.Print'; that would help identifying errors. Found it and replaced your function as follows.

For more details, see webpage Function Shareprice(YahooTicker As String) Dim strURL As String, strCSV As Double ' Compile the request URL with selected Yahoo Ticker & Yahoo Tag ' Example for Apple Inc. Share price ' strURL = '& YahooTicker & '&f=l1' Set http = CreateObject('MSXML2.XMLHTTP') http.Open 'GET', strURL, False http.Send strCSV = http.responseText Shareprice = strCSV Set http = Nothing End Function •. Thanks for this great macro! I simplified the program and removed the date input.

So my version only outputs the current stock price ('l1'). I guess that is what Rupesh and Mike asked for further above. The input has to look like this: =StockQuote('ticker_symbol'). I had difficulties with this macro to show exchange rates (e.g. That's why I changed the url in my version to 'download.finance.yahoo.com'.

Somehow there it works. Here is the code: Function StockQuote(strTicker As String) Dim strURL As String, strCSV As String Dim dbClose As Double ' Compile the request URL strURL = '& strTicker & _ '&f=l1' ' Debug.Print strURL Set http = CreateObject('MSXML2.XMLHTTP') http.Open 'GET', strURL, False http.Send strCSV = http.responseText ' Debug.Print strCSV dbClose = strCSV ' Debug.Print vbLf ' Debug.Print 'dbClose: ' & dbClose StockQuote = dbClose Set http = Nothing End Function •. Hi Mike, I added some code (all the credit goes to Nick - ). You can change the update interval (Line 8. It's set to 5 minutes right now). I wouldn't recommend to set a a very small time though.

Yahoo seems to block too many requests from the same user. So if you have many ticker symbols and/or a short update interval the macro hangs for quite some time. Another note: After copying the code into your Excel sheet, it might be necessary to save, close and reopen the file in order to start the auto update. Rene, Thank you.Thank you. I've been trying to replace an Open Office plug-in called 'GetHistory' which also retrieved Yahoo historical stock prices as it quit working some time ago. Thank you also Jeff O for posting how to retrieve the adjusted closing prices also.

Those are the only historical prices that mean anything to me. With much struggle I got it working on Excel 2013. A program that I hate along with Windows 8. Anyway, it works and it has simplified my life. Thanks again, Merle •. Rene, Thanks for the macro! It works great and was exactly what i needed.