【ExcleVBA】IE制御でSMBC日興証券で買い注文を出すマクロ

SMBC日興証券で、現物買いの新規注文を出すマクロです。

ログインまでは前回の記事、VBAでIE操作を行い、SMBC日興証券にログインをするマクロを参考にしてください。

IE制御で買い注文

 icon-check-square-o テストマクロ

みずほ(8411)を1000株、指値222円で買い注文を出すマクロです。
ご自分のユーザー情報を入力して、マクロMainを実行してください。

あっ、場中以外で試してくださいね。
損失が出ても責任は取れませんのであしからず。

‘変数の宣言
Dim objIE As Object
Dim objTag As Object

‘メイン
Sub Main()

Call SMBC_Login
Call SMBC_Buy

End Sub

‘ログイン
Sub SMBC_Login()

‘お約束
Set objIE = CreateObject(“InternetExplorer.application”)
objIE.Visible = True

‘ログイン画面
objIE.navigate “https://trade.smbcnikko.co.jp/Login/0/login/ipan_web/hyoji/”
IE_Complete objIE

‘ユーザー情報
objIE.document.all.koza1.Value = “支店コード”
objIE.document.all.koza2.Value = “口座番号”
objIE.document.all.passwd.Value = “パスワード”

‘ログインボタン
For Each objTag In objIE.document.getElementsByTagName(“input”)
If objTag.src = “https://trade.smbcnikko.co.jp/img/login_help_btn_001.gif” Then
objTag.Click
Exit For
End If
Next
IE_Complete objIE

End Sub

‘買い注文
Sub SMBC_Buy()

‘銘柄コード
objIE.document.all.meigNM.Value = “8411”

‘検索ボタン
For Each objTag In objIE.document.getElementsByTagName(“input”)
If objTag.src = “https://trade.smbcnikko.co.jp/rsc/image/header/btn_serch.gif” Then
objTag.Click
Exit For
End If
Next
IE_Complete objIE

‘買い注文ボタン
objIE.document.all.btn02.Click
IE_Complete objIE

‘市場
objIE.document.all.sijo.Value = 1

‘注文数量
objIE.document.all.suryo.Value = “1000”

‘注文単価
objIE.document.all.kakaku.Value = “222”

‘執行条件
objIE.document.all.syori.Click

‘期間指定
objIE.document.all.tojit.Click

‘口座区分
objIE.document.all.toku.Value = 1

‘チェック
objIE.document.all.kofuChk.Click

‘注文内容を確認する
objIE.document.all.execUrl.Click

End Sub

‘表示完了まで待つ
Sub IE_Complete(ByVal objIE As Object)

Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.document.readyState <> “complete”
DoEvents
Loop

End Sub


 icon-check-square-o コードの解説

ログイン後の画面です。
ああ、こういうの懐かしい…

SMBC10
※画像をクリックすると拡大します

注文するには、いくつか方法がありそうです。
ここでは、銘柄コードを検索窓に打ち込んでみます。

SMBC11

前回と同じように、デベロッパーツールを使って要素の検証をします。

SMBC12

こんなふうにnameがついてると、ラクちんですねえ。

‘銘柄コード
objIE.document.all.meigNM.Value = “8411”

これで検索窓に8411と入力されるので、検索ボタンを押します。
要素の検証をしてみると…

SMBC13

まあ、やっぱりnameはついてないよね。
ということで、前回と同じようにgifのURLを探っていきます。

SMBC14

‘検索ボタン
For Each objTag In objIE.document.getElementsByTagName(“input”)
If objTag.src = “https://trade.smbcnikko.co.jp/rsc/image/header/btn_serch.gif” Then
objTag.Click
Exit For
End If
Next

これで検索ボタンは押せます。
やり方が正しい自信はありませんけど…

SMBC15
※画像をクリックすると拡大します

するとみずほ(8411)の銘柄詳細画面に行きます。
ああ、こういうの懐かしい…

矢印↓の買い注文ボタンをクリックします。
どうせnameはないんでしょ?と思ったらありました。笑

SMBC16

‘買い注文ボタン
objIE.document.all.btn02.Click

nameがあれば、簡単にクリックできます。
ほんと、すべてのボタンにちゃんとnameをつけてほしい。


 icon-check-square-o 注文画面

やば、懐かしすぎ。
ほんと胸キュンしちゃうわ。

SMBC17
※画像をクリックすると拡大します

なんだか、色々と入力するところがありますね。
わかりにくいとこだけ解説します。

まずは、市場の選択です。

SMBC18

要素を検証してソースをみると、優先市場がY、東証が1、名証が3になってます。
最初から東証になってるので、必要はないですが念のため。

‘市場
objIE.document.all.sijo.Value = 1

SMBC19

次に指値価格と、執行条件にチェックをつけます。
nameがついてるので、説明は省きますね。ここでは条件は寄指にしました。

‘注文単価
objIE.document.all.kakaku.Value = “222”

‘執行条件
objIE.document.all.syori.Click

SMBC20

ラジオボタンにIDがあるので、クリックしてチェックを入れるだけ。
こんな感じで、すべての項目にチェックを入れ、注文内容を確認するとクリック!!

SMBC21

入金してないので、当然こうなります。笑
まあ、この後は注文確定ボタンを押すだけっぽいから、なんとかなるでしょう。

信用口座の開設が済んだら、そちらのマクロも載せる予定です。