エクセル株式トレード応用編（新規買いプログラム）

プログラムソース

Sub s1新規買い()
Dim wPass As String ”パスワード
Dim wSu As String ”仕掛け枚数
Dim wId As String ”発注ID
wPass = “testpass”
wSu = Cells(3, 5)
wId = “KAI” & Format(Date, “yyyymmdd”) & Format(Time, “hhmmss”)

Call FNEWORDER(“N225mini”, 0, 1, “A”, “1”, 3, 13, 0, wSu, 1, 1, “1”, wPass, wId, “1”, “”, 13, 0)
End Sub