Yahoo Finance api change?

sedgefield02

New Member
Joined
May 29, 2017
Messages
11
I use the yahoo financial api to download mutual fund prices each day. It has worked fine for months. Today I got

run time error 1004 application defined or object defined error

the apparent cause of the error is highlighted in bold below.

{ code
Set DataSheet = ActiveSheet
With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=Range("BQ5"))
.BackgroundQuery = True
' .TablesOnlyFromHTML = False
.FillAdjacentFormulas = False
.Refresh BackgroundQuery:=False '<---- cause of the bug 11/2/2017
.SaveData = True
End With

end code}

I know Yahoo will make changes without any notification. Does anyone have information on this?
 
If it works, that's great. I guess you'll find out tomorrow...
 
Upvote 0

Excel Facts

Remove leading & trailing spaces
Save as CSV to remove all leading and trailing spaces. It is faster than using TRIM().
Yeah, it worked for me on Friday... What a relief, I have so much depending on the ability to be able to suck out quotes on demand!
 
Upvote 0
Yeah, it worked for me on Friday... What a relief, I have so much depending on the ability to be able to suck out quotes on demand!
and so much easier than using yahpoo's api with all the vba needed and reliability issues.

I've even managed to get exchange rates out if it.

The only thing i cant do at the moment is get it to give me the exchange the shares are traded on.
 
Upvote 0
I have been using this bit of Excel macro code for some time, only to find it no longer works.
Is there any direct equiv. of this using the Google or any other API that is Free?
This extracts the current price only, I'm not interested in the other info really.

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
' http://download.finance.yahoo.com/d/quotes.csv?s=AAPL&f=l1
strURL = "http://download.finance.yahoo.com/d/quotes.csv?s=" & 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

Hope someone can help. I don't want to use GoogleSheets as its very slow compared to standalone Excel.

Thanks.. Bryn..
 
Upvote 0
I have been using this bit of Excel macro code for some time, only to find it no longer works.
Is there any direct equiv. of this using the Google or any other API that is Free?
This extracts the current price only, I'm not interested in the other info really.

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
' http://download.finance.yahoo.com/d/quotes.csv?s=AAPL&f=l1
strURL = "http://download.finance.yahoo.com/d/quotes.csv?s=" & 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

Hope someone can help. I don't want to use GoogleSheets as its very slow compared to standalone Excel.

Thanks.. Bryn..


Hi Bryn,

Look at the link in Post #11 of this thread and stop at the part where it says post as a .CSV and then let your code take over as the http.response text to CSV that Yahoo was returning... you may want to use VbNewLine to parse with.

I hope this helps
 
Upvote 0
stop at the part where it says post as a .CSV and then let your code take over as the http.response text to CSV that Yahoo was returning

I personally went further and used power query to import the csv file directly into Excel - it does the parsing for you and removes the need for any code.
 
Upvote 0
Hi, and thanks for the response.

I did see this post but it appears to pull historical data and not the 15 minute delayed current price that I'm looking for.
Do you know how to retrieve this data?

rabbit, I tried to respond to your personal email but it seems I have no personal email space, and it would not let me reply.

Thanks, Bryn
 
Upvote 0

Forum statistics

Threads
1,213,538
Messages
6,114,218
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top