User-defined type not defined

[jirakst]

I am have here a code to retrieve an actual price of a stock from Google Finance.

<code>Function StockQuote(ByVal Stock)

Dim URL As String
Dim http As New MSXML2.XMLHTTP
Dim stockdoc As New HTMLDocument

URL = "https://www.google.com/finance?q=" & Stock

http.Open "GET", URL, False
http.Send
stockdoc.body.innerHTML = http.ResponseText
StockQuote = stockdoc.getElementsByClassName("pr")(0).innerText
Set http = Nothing

End Function</code>

Unfortunetlly when I try to make it run it appears a "Compile error: User-defined type not defined." on the second line of the code "Dim http As New MSXML2.XMLHTTP"
I believe I've omited include some refrences.
Here's what I've additionaly mark off in Tools-References:

• Microsoft XML, v6
• Microsoft HTML Object Library

Does somebody know what I've done worng?
Thank you in advance.

 

[igold]

Hi jirakst,

I think you are missing this reference: Microsoft WinHTTP Services, version 5.1

Additionally, do yourself a favor and watch this video. It explains how to write a great VBA code to get stock prices with the Yahoo Finance API, which is what you using in your code above. I (and a ton of other people) use this program as a base for my own financial spreadsheet. It's great. You will definitely learn something.

https://www.youtube.com/watch?v=iSlBE3CWg5Q

If you any questions after, feel free.

igold