[ExcelVBA] Download data from Yahoo

 

Hello Group,

Hope all is well. I have been using some code for a long time to get data from Yahoo stock price history:
Example: https://finance.yahoo.com/quote/WMT/history?p=WMT

In this web page there is a link to "Down load Data", but the code I have been using and is now failing did this automatically. The code that now fails, Symbol would be "WMT" for the above:

Thisurl = "http://ichart.finance.yahoo.com/table.csv?s=" & Symbol
Set QT = ActiveSheet.QueryTables.Add( _
    Connection:="URL;" & Thisurl, _
    Destination:=Range("Z1"))
With QT
    .Refresh BackgroundQuery:=False
End With

It seems that Yahoo has changed a lot of things. Can anyone help me fix this? Any help would be greatly appreciated.

Thanks, David

__._,_.___

---

Posted by: who1012000@yahoo.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___