data fetching from website

I need to pull data from Moneycontrol.com with input in excel sheet. the data should be fetched with this input which is Stock name. E.g. if I need info on nestle then i would put stock code in the cell in excel and it should fetch all info from this page "http://www.moneycontrol.com/india/stockpricequote/foodprocessing/nestleindia/NI". can some one help me with this. (data from web query doesnt work)

Yes, I agree with Leith... you didn't specify exactly what data you wanted, or how you wanted it presented.

If web query doesn't work, one solution is to simply parse the data yourself.

For example, the following small piece of code retrieves the live BSE and NSE prices that are listed on the page. A message box pops up, giving you the figures.

Const URL$ = "http://www.moneycontrol.com/india/stockpricequote/foodprocessing/nestleindia/NI"
Dim text As String
With CreateObject("MSXML2.ServerXMLHTTP")
    .Open "GET", URL, False
    .Send
    text = .ResponseText
End With

bse_location = InStr(1, text$, "Bse_Prc_tick"): nse_location = InStr(1, text$, "Nse_Prc_tick")

bse_price$ = Mid(text$, bse_location + 22, 7) : nse_price$ = Mid(text$, nse_location + 22, 7)
message_1$ = "The BSE Live price right now is " + bse_price$
message_2$ = "The NSE Live price right now is " + nse_price$
MsgBox$ message_1$ + "  " + message_2$

You can retrieve additional data on the page in a similar fashion.

(I wish I had a few shares of that stock.)

12.jpg

Hi,
Thanx for the reply.
i have circled the items that are required from this page. I want to keep company name as input on excel to fetch these nos. on same or separate sheet. I hope i have specified properly this time. e.g. with input of company name = infosys- the nos. that i would need are - prev closing, today Closing, high, low price for BSE and nse in separate cells.