help required in importing data

#1
Dear friends,
I want to import company results from nse into a.csv file(atleast 200 srips).How to automate this process?Please help...
thanx ..
santo...
 
#2
ths may be not elegant solution but try this
park this macro in personal.xls file
open an excel spread sheet
run the macro from personal.xls.
you have to input the name of the scrip.

in the saving folder modify to suit you.

the macro is
Code:
Sub announcements()
Dim scrip As String
Application.DisplayAlerts = False
scrip = InputBox("type nse code of the scrip")
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://nseindia.com/marketinfo/companyinfo/eod/announcements.jsp?symbol=" & scrip _
        , Destination:=Range("A1"))
        .Name = "announcements.jsp?symbol=cipla"

        .Refresh BackgroundQuery:=False
    End With

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\VENKAT\My Documents\" & scrip & " announcements.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
 

Similar threads