"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