台証 GetsAPI v20090313

[cademat]

請問下列EXCEL VBA 台証證券下單的程式執行結果為下單錯誤, 回覆 tmp值為 99 , 可否告知哪裡錯了, 謝謝!

'下證券單
ReDim varData(0 To 23)
varData(ORDER_ARGS_ROCID) = 身份證號
varData(ORDER_ARGS_PASSWORD) = 憑證密碼
varData(ORDER_ARGS_BRANCHID) = 分公司代號
varData(ORDER_ARGS_CUSTID) = 證券帳號

varData(ORDER_ARGS_SOURCE) = "IC" '來源別
varData(ORDER_ARGS_ID) = "2303"
varData(ORDER_ARGS_BS) = "B"
varData(ORDER_ARGS_ODTYPE) = "0"
varData(ORDER_ARGS_PRICE_FLAG) = "0" '0/2/3/4 限價/平盤/跌停/漲停
tmp = 16000
varData(ORDER_ARGS_ODPRICE) = tmp '委託價格需乘上1000, 末三位是小數位數
tmp = 1000
varData(ORDER_ARGS_ODQTY) = tmp '股數
varData(ORDER_ARGS_ODKEY) = "123456780" '此筆下單的key, 每次下單必須有一個unique的key
varData(ORDER_ARGS_TRADE_TYPE) = "N" '普通(N)/盤後(F)/零股(O)
varData(ORDER_ARGS_MARKETTYPE) = "T" '市場別: T:上市 O:上櫃
Data = varData
tmp = ICEGLOBALTRADEAPI1.PlaceStkOrder(Data)
If tmp < 0 Then MsgBox "證券下單失敗,錯誤代碼:" & tmp

[joseph1]

最新的版本是 GETS_API版本及文件_ 20090623.ZIP 檔案大小為1,990,296bytes (實際大小, 非磁碟大小)
不過, 不知道此版與目前各位已經寫好的下單程式是否相容...

[max1217]

最新的版本是 GETS_API版本及文件_ 20090623.ZIP 檔案大小為1,990,296bytes (實際大小, 非磁碟大小)
不過, 不知道此版與目前各位已經寫好的下單程式是否相容...

完全相容～

不過，我是下期貨單！

[max1217]

各位好,
我在網路上看到有人介紹20090623的版本,
http://autott.wordpress.com/2009/09/07/userguide_tscshort/
上個月我申請了台証API, 但是台証寄來的光碟還20090313版的,
我想問大家, 是否真的有20090623的版本?
有人用過嗎?
謝謝.

我這裡的版本就是20090623的版本！

可以用～

[max1217]

請問下列EXCEL VBA 台証證券下單的程式執行結果為下單錯誤, 回覆 tmp值為 99 , 可否告知哪裡錯了, 謝謝!

'下證券單
ReDim varData(0 To 23)
varData(ORDER_ARGS_ROCID) = 身份證號
varData(ORDER_ARGS_PASSWORD) = 憑證密碼
varData(ORDER_ARGS_BRANCHID) = 分公司代號
varData(ORDER_ARGS_CUSTID) = 證券帳號

varData(ORDER_ARGS_SOURCE) = "IC" '來源別
varData(ORDER_ARGS_ID) = "2303"
varData(ORDER_ARGS_BS) = "B"
varData(ORDER_ARGS_ODTYPE) = "0"
varData(ORDER_ARGS_PRICE_FLAG) = "0" '0/2/3/4 限價/平盤/跌停/漲停
tmp = 16000
varData(ORDER_ARGS_ODPRICE) = tmp '委託價格需乘上1000, 末三位是小數位數
tmp = 1000
varData(ORDER_ARGS_ODQTY) = tmp '股數
varData(ORDER_ARGS_ODKEY) = "123456780" '此筆下單的key, 每次下單必須有一個unique的key
varData(ORDER_ARGS_TRADE_TYPE) = "N" '普通(N)/盤後(F)/零股(O)
varData(ORDER_ARGS_MARKETTYPE) = "T" '市場別: T:上市 O:上櫃
Data = varData
tmp = ICEGLOBALTRADEAPI1.PlaceStkOrder(Data)
If tmp < 0 Then MsgBox "證券下單失敗,錯誤代碼:" & tmp

你的問題很不清楚！

那你帶給他的資訊確定都是對的嗎？