"Pradip Jain" wrote in message
...
please see the following link

http://www.nseindia.com/content/equi...iphistdata.htm

the site generates historical data of price and volume based on various
inputs as follows: scrip code, start date and end date. suppose we choose
scrip code as ACC and start date as Jan 1, 2008 and end date as April 1,
2008. the site generates a file whose name is based on the inputs and can
be
downloaded from the following url:


http://www.nseindia.com/content/equi...2008ACCEQN.csv


now my query is can we write code to make the website run query based on
inputs entered in excel sheet and generate the file on the server and then
download the same

You can download files if you set a reference to the
"Microsoft Internet Transfer Control"
(msinet.ocx)

Like this...

Sub getcsv()
Dim Inet1 As InetCtlsObjects.Inet
Dim s1 As String, s2 As String
Dim intfile As Integer

s1 = "inputtext=ACC&series=EQ&check=new&Fromday=1" _
& "&Frommon=1&Fromyr=2008&Today=1&Tomon=4&Toyr=2 008"

s2 = "112008142008ACCEQN.csv"

s1 = "http://www.nseindia.com/marketinfo/equities/" _
& "scripvol/histscrip.jsp?" & s1

Set Inet1 = New InetCtlsObjects.Inet
If InStr(Inet1.OpenURL(s1, icString), s2) 0 Then

s2 = "http://www.nseindia.com/content/equities/" _
& "scripvol/datafiles/" & s2

intfile = FreeFile
Open "c:\temp\test.txt" For Output As #intfile
Write #intfile, Inet1.OpenURL(s2, icString)
Close #intfile
End If
Set Inet1 = Nothing

End Sub

Also, Fiddler is very useful
http://msdn2.microsoft.com/en-us/lib...46(VS.85).aspx


--
roger