台灣最大程式設計社群網站
線上人數
1001
 
會員總數:246093
討論主題:189666
歡迎您免費加入會員
討論區列表 >> ACCESS >> 元大證券API 無法用Access 登入.
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
元大證券API 無法用Access 登入.
價值 : 500 QP  點閱數:1217 回應數:2
樓主

Roger
初學者
115 4
171 23
發送站內信

懇請各位先進指導.
我想用Access 寫API下單軟體

下載範本在下網址:http://easywin.yuantafutures.com.tw/api/download.html

確定1.
在ACCESS內的VBA下有安裝 "設定引用項目".
FSCAPIATL 1.0 TYPE LIBRARY.
YUANTAORD ACTIVEX CONTROL MODULE

確定2.
C:\YUANTA下都有安裝install_YTFutOrdAP64.bat(用A.D.M)

我使用"交易API Excel 範例"測試有成功登入.
但是轉到 Access 之後,就登入不進去?

每次都停在 [result = YuantaOrd1.SetFutOrdConnection((tAA), (tBB), (tCC), (tDD))]
會出現 "此處需要物件", RESULT = 0

是YUANTAORD1有問題嗎?有什麼方法要改才能登入?


'登入
Private Sub LogonBt_Click()
On Error GoTo ErrHandler

Dim result As Long
Dim tAA, tBB, tCC, tDD

tAA = Me.LogonID
tBB = Me.LogonPass
tCC = Me.ConnIP
tDD = Me.ConnPort

Me.edErrHandler = ""
WaitFlag = True
checkio = False
totalcancelflag = False

result = YuantaOrd1.SetFutOrdConnection((tAA), (tBB), (tCC), (tDD))
Me.ConnResult = Now & ":" & CStr(result)

ErrHandler:

MsgBox result
MsgBox Err.Description

If Err.Number <> 0 Then
Me.edErrHandler = Now & ":" & CStr(Err.Number) & ":" & Err.Description
End If

End Sub


搜尋相關Tags的文章: [ 元大API ] , [ 下單 ] , [ 證券 ] ,
本篇文章發表於2020-05-16 21:34
== 簽名檔 ==
萬丈高樓從地起.
1樓
回應

香帥
檢舉此回應
網頁有說明 權限需額外申請
不知您有沒申請呢
本篇文章回覆於2020-05-20 00:26
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

香帥
檢舉此回應
我有幫您試
請參考
元大行情API Excel範例使用說明
伍、 疑難排解
插入元大的控制項,然後再試試。
本篇文章回覆於2020-05-21 21:42
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.