こんにちは。IPO当選コンサルタントのKUWAPONです。
比較的資金が少ない方がIPOに当選するための王道は、一般的に以下となります。
- 主幹事となっている証券会社で申し込む（主幹事となる証券会社には口座を開設）
- より多くの人数で抽選に申込む（子供、祖父・祖母にも抽選に参加してもらう）
多くの証券会社を管理する上で課題となるのが、証券会社へのログインです。各証券会社にログインするためには、支店番号、口座番号（ユーザー名）、パスワードの入力が必要です。ただ、これを毎回するのが面倒です。IPO抽選にストレスなく無理なく申し込むために、本記事では、EXCEL VBAを用いた証券会社ログインの効率化を紹介します。
EXCEL VBAからInternet Exploreを動作できるようにする
まずは初期設定です。EXCEL VBAからInternet Exploreｗ利用するためには、EXCEL VBAから以下の設定を行います。
VBAでIEを操作するためには下記2つのライブラリを参照します。 Microsofot Visual Vasic for Applicationの「メニュー」→「ツール」→「参照設定」を選択し、以下2つのライブライのチェックをオンに設定します。
- Microsoft HTML Object Library
- Microsoft Internet Controls
野村証券へのログイン
EXCEL VBAからInternet Exploreを用いることで、指定したURLで、口座番号・パスワードを自動入力し、ログインすることが可能です。例えば野村證券へのログイン例です。
Private Sub 野村ログイン
Dim IE As New InternetExplorer
IE.Navigate "https://hometrade.nomura.co.jp/web/mfIndexWebAction.do"
IE.Visible = True
'Wait for IE reading is completed
While IE.Busy = True Or IE.ReadyState < READYSTATE_COMPLETE
DoEvents
Wend
Dim IEdoc As HTMLDocument
Set IEdoc = IE.Document
Dim inp As HTMLInputElement
Dim inpKouza As HTMLInputElement
Dim inpPass As HTMLInputElement
'部店コード
Set inp = IEdoc.getElementsByName("btnCd")(0)
inp.Value = "部店コード"
'口座番号
Set inpKouza = IEdoc.getElementsByName("kuzNo")(0)
inpKouza.Value = "口座番号"
'ログインパスワード
Set inpPass = IEdoc.getElementsByName("gnziLoginPswd")(0)
inpPass.Value = "ログインパスワード"
'ログインボタンをクリック
Set Click = IEdoc.getElementsByName("buttonLogin")(0)
Click.Click
End Sub他の証券会社ログイン
同じように記述することで、他の証券会社にEXCELからログインすることが可能です。
| 証券会社 | 部店（支店） | 口座番号 or ログインID | パスワード | ログイン ボタン | 方法 |
| 野村 | btnCd | kuzNo | gnziLoginPswd | buttonLogin | Click |
| 大和 | @PM-1@ | @PM-2@ | @PM-3@ | form1 | Submit |
| みずほ | ー | %mzh%:userId | %mzh%:password | send | Click |
| SMBC日興 | koza1 | koza2 | passwd | logIn | Click |
| SBI | ー | user_id | user_password | ACT_login | Click |
| マネックス | ー | loginid | passwd | F1 | Click |
| 松井証券 | ー | clientCD | passwd | form | Submit |
| 三菱UFJMS | ー | ACCOUNTUID | PASSWORD | SUBMIT | Submit |
| カブドットコム | ー | SsLogonUser | SsLogonPassword | image1 | Click |
| 東京東海 | ー | loginTuskLoginId | gnziLoginPswd | buttonLogin | Submit |
| 岡三オンライン | ー | loginTuskLoginId | gnziLoginPswd | buttonLogin | Click |
| GMOオンライン | ー | j_username | j_password | LoginForm | Click |
| 楽天 | ー | loginid | passwd | input | Click？ |
%mzh% : formArea:userIdFeedbackPanelParent:
まとめ
IPO抽選にストレスなく無理なく申し込むために、本記事では、EXCEL VBAを用いた証券会社ログインの効率化を紹介しました。
コメント