Re: Free data from NSENOW to AmiBroker via Excel(please Help!!)
hello Josh, Pelase Help!!
I was using this application for last few days it was working OK.since today when I click start sheet, error is displayed-"Run-time error-
2147023582(80079522):
MthodCreatTxtFile of obejctIFilSystem3 failed
"
The debug view is like this:
Sub MakeCSV()
Dim fs As Object, a As Object, i As Integer, s As String, t As String, CellValue As String
'Create a file object for writing
Set fs = CreateObject("Scripting.FileSystemObject")
'Set a as C:\Mycsv.csv, True means overwrite on old file
Set a = fs.CreateTextFile("c:\MyCSV.csv", True)
Application.Goto Workbooks("NSE-NOW-RT2.xlsm").Sheets("Now").Range("A1:A1") 'Selects sheet containing quotations
I dont know programming.Pl help.
thanks
regards
PKJ
hello Josh, Pelase Help!!
I was using this application for last few days it was working OK.since today when I click start sheet, error is displayed-"Run-time error-
2147023582(80079522):
MthodCreatTxtFile of obejctIFilSystem3 failed
"
The debug view is like this:
Sub MakeCSV()
Dim fs As Object, a As Object, i As Integer, s As String, t As String, CellValue As String
'Create a file object for writing
Set fs = CreateObject("Scripting.FileSystemObject")
'Set a as C:\Mycsv.csv, True means overwrite on old file
Set a = fs.CreateTextFile("c:\MyCSV.csv", True)
Application.Goto Workbooks("NSE-NOW-RT2.xlsm").Sheets("Now").Range("A1:A1") 'Selects sheet containing quotations
I dont know programming.Pl help.
thanks
regards
PKJ