Извиняюсь за дилетантский вопрос (я не очень разбираюсь в VBA) - Как в функции макроса сделать ссылку на ячейки с параметрами для макроса?
Сам пытался, но не получилось в строке:
как сделать чтобы параметры: 20190510 - числовой, PUT - текстовый задавались из ячеек на неактивном листе (т.е. изменять можно было в ячейках, а не в макросе и чтобы лист с параметрами не обязательно был активным).
Например первый числовой параметр брать из ячейки A1=20190510, второй текстовый из B1=CALL как в приведённом файле примере.
Макрос файла такой:
Сам пытался, но не получилось в строке:
Код |
---|
uidSPX = TwsLink2.REGISTER_CONTRACT2("SPX", "OPT", "USD", "SMART", 20190510, "PUT", 2920, 100) |
как сделать чтобы параметры: 20190510 - числовой, PUT - текстовый задавались из ячеек на неактивном листе (т.е. изменять можно было в ячейках, а не в макросе и чтобы лист с параметрами не обязательно был активным).
Например первый числовой параметр брать из ячейки A1=20190510, второй текстовый из B1=CALL как в приведённом файле примере.
Макрос файла такой:
Код |
---|
Private Sub btRunSample_Click() Dim ret As Long Dim uidSPX As Long Dim uidSPXOrder As Long Dim TwsLink2 As Object ' create twslink2 object Set TwsLink2 = CreateObject("TwsLink2.TwsLinkCom") ' connect to TWS at localhost and standardprot ret = TwsLink2.Connect("", 7496, 1, 20000) ' register SPX OPT contract uidSPX = TwsLink2.REGISTER_CONTRACT2("SPX", "OPT", "USD", "SMART", 20190510, "PUT", 2920, 100) ' place BUY BUY 1 order uidSPXOrder = TwsLink2.PLACE_ORDER(uidSPX, 0, "BUY", "LMT", 1, 0.05, 0#, "GTC", 1, 0) ret = Disconnect End Sub |