Ниже приведен мой код:
Function newsArb(timeremaining)
Dim API As RIT2.API
Set API = New RIT2.API
While timeremaining <> 0
Do While Range(UB_Ask_Delta) > Range(UB_Dollar_Threshold)
OrderID = API.AddOrder("UB", UB_Order_Size * UB_Ask_QualVol, 0, 1, 0)
OrderID = API.AddOrder("GEM", (UB_Order_Size * UB_Ask_QualVol) * GEM_Ask_Ratio, 0, 1, 0)
OrderID = API.AddOrder("ETF", (UB_Order_Size * UB_Ask_QualVol) * ETF_Bid_Ratio, 0, -1, 0)
Loop
Wend
End Function
Каждое значение диапазона относится к именованному списку в электронной таблице Excel.Я планировал повторить вышеупомянутую стратегию в общей сложности шесть раз - для заявки и запроса трех ценных бумаг.Однако, когда я сохраняю его, запускаю Rotman и инициализирую его с помощью newsArb в Excel, он просто не выполняется.Пожалуйста, дайте мне знать, если вы увидите что-нибудь, что может заставить его не работать.