Re: Free RealTime Data NOW Nest ODIN Trade Tiger Google Yahoo to AmiBroker, Fcharts M
I am using rtnest.xlm for realtime. I am not finding volume in ami chart. Though it periodically shows volume as 100 etc, it does not show volume for say 5 min.
mycsvnest.txt is as follows
15/04/2013,BANKNIFTY-I,12:50:15,11582.6,75,1551225,BANKNIFTY,
15/04/2013,NIFTY-I,12:50:15,5570.9,100,21136950,NIFTY,
my makecsv subroutine is as follows.
Sub MakeCSV()
Dim fs As Object, a As Object, C As Integer, i As Integer, R As Integer, S As String, t As Variant, CellValue As String
'Create a file object for writing
Set fs = CreateObject("Scripting.FileSystemObject")
If Range("B2") = "" Then
On Error Resume Next
MkDir ("R:\RT") 'This will create a folder RT in C Drive.
FileName = "R:\RT\MyCSVNest.txt" 'This file is used to write quotes
Else
FileName = Range("B2") + "\MyCSVNest.txt" 'This file is used to write quotes
End If
Set a = fs.CreateTextFile(FileName, True) 'Here we create the file MyCSV.csv
MyBook.Sheets("Nest").Select 'Selects sheet containing quotations
For R = 7 To Range("A65536").End(xlUp).Row
S = Format(Date, "dd/mm/yyyy") & ","
C = 1
On Error Resume Next
If TimeValue(Cells(R, 2).Value) > (TimeValue(Now()) + TimeValue("00:00:03")) Then
' Debug.Print Cells(R, 2).Value & " > " & TimeValue(Now()) + TimeValue("00:00:03")
GoTo NextIteration
End If
While Not IsEmpty(Cells(R, C))
If C = 2 Then
CellValue = Format(Cells(R, C).Value, "HH:mm:ss")
ElseIf C = 4 Then
t = Cells(R, C).Value - (Vol(R, 1))
Vol(R, 1) = Cells(R, C).Value
CellValue = t
' Debug.Print Cells(R, 1).Value & t & " - " & Vol(R, 1)
Else
CellValue = Cells(R, C).Value '
End If
S = S & CellValue & "," 'Add contents of current cell to string 's' and a comma
C = C + 1
Wend
a.writeline S 'write line to the file MyCSV.csv
NextIteration:
Next R
End Sub
What to do to get volume in ami?