Realtime data NOW,ODIN,TradeTiger,Google,Yahoo > AmiBroker, Fcharts, Qtstalker

[josh1]

Please check it--

Subham

Your data/time field is not getting split into date and time. No backfil will happen. Are you using latest Backfill.xlsm?

Find this part of code--

If MsgBox("Do you want to split Date_Time into separate columns", vbYesNo) = vbYes Then
Application.DisplayAlerts = False
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Select
Range("B1").Activate
Selection.Copy
Columns("C:C").Select
Range("C1").Activate
ActiveSheet.Paste
Columns("B:B").Select
Range("B1").Activate
Application.CutCopyMode = False
Selection.NumberFormat = "d/m/yyyy"
Columns("C:C").Select
Range("C1").Activate
Selection.NumberFormat = "HH:MM:SS:" ' "[$-F400]h:mm:ss AM/PM"
End If

Check the bold lines are there. If not insert them or download latest NOWbackfil

 

[subham2010]

Sub GenerateCSV()
'This generates .csv file containing quotations
FileName = "C:\RT\NowBackfil.csv"
Application.Goto Workbooks("NowBackfil.xlsm").Sheets("Sheet1").Cells(1, 1) 'Selects sheet containing quotations
If Cells(1, 1).Value = "" Then
MsgBox ("Please paste data into Cell A1 of this sheet from NOW/NEST first")
Exit Sub
Else
MsgBox ("If Realtime feed is running," _
& "Go to AmiBroker and save your database first ")
End If

If MsgBox("Do you want to split Date_Time into separate columns", vbYesNo) = vbYes Then
Application.DisplayAlerts = False
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Select
Range("B1").Activate
Selection.Copy
Columns("C:C").Select
Range("C1").Activate
ActiveSheet.Paste
Columns("B:B").Select
Range("B1").Activate
Application.CutCopyMode = False
Selection.NumberFormat = "d/m/yyyy"
Columns("C:C").Select
Range("C1").Activate
Selection.NumberFormat = "HH:MM:SS:" ' "[$-F400]h:mm:ss AM/PM"
End If


Workbooks("NowBackfil.xlsm").Sheets("Sheet1").Copy 'Copies that sheet to new Workbook. This is necessary since csv file is flat.
'Excel save only one sheet.
Application.DisplayAlerts = False
ActiveWorkbook.SaveAS FileName:="C:\RT\NowBackfil", FileFormat:=xlCSV, CreateBackup:=False 'saved new workbook as C:\RT\NowBackfil.csv
ActiveWindow.Close 'Closed the new workbook
CallAmiBroker

End Sub

Sub CallAmiBroker()
InitialiseABK
Call ABK.Import(0, FileName, "Nest3.format")
Call ABK.RefreshAll
ABK.SaveDatabase
Debug.Print ("Data imported.")
Application.Goto Workbooks("NowBackfil.xlsm").Sheets("Sheet1").Cells(1, 1) 'Selects sheet containing quotations
Application.ScreenUpdating = False
'Columns("D").Select
'Selection.NumberFormat = "0.00"
Columns("A:H").Select
'Selection.ClearContents
Columns("A:H").Delete
Columns("A:A").ColumnWidth = 20
Columns("B:B").ColumnWidth = 20
Application.ScreenUpdating = True
Application.Goto Workbooks("NowBackfil.xlsm").Sheets("Sheet1").Cells(1, 1) 'Selects sheet containing quotations

End Sub




------------

This is the full formula-- all same as u mentioned.

 

[subham2010]

@josh1--

u can use team viewer or ammyy for solve the problem..

 

[josh1]

@josh1--

u can use team viewer or ammyy for solve the problem..

PM your TV details

 

[subham2010]

@josh1-- sir i can not PM u till now there are no option. Plz add my mail id
[email protected]

 

[subham2010]

Sir u can add me if u want--

 

[Mattie492]

There are two stages involved in this procedure.

 

[josh1]

@josh1-- sir i can not PM u till now there are no option.

You got a mail

 

[fanku]

thanks for help..

i did all above exercise step my step..except backfill ...
but unable to see scrip list in amibroker.. how to load script list in amibroker..

my setup is TT advance to Amibroker..

Pls help me..

 

[josh1]

thanks for help..

i did all above exercise step my step..except backfill ...
but unable to see scrip list in amibroker.. how to load script list in amibroker..

my setup is TT advance to Amibroker..

Pls help me..

Scip list will automatically get loaded in AMI. Tell me the steps you have taken and up to which stage you are successful. Are you able to see changing prices in RTNOW?