VBAでキー操作を送信する - MORE MONEY THAN GOD.

※金融機関における重要書面確認は顧客の責任です。この記事に書いてあることは真似せず、必ず自分の目で確認してください！！

久々にSBI証券にログインしたら「重要なお知らせ」が溜まっていました。全部確認しないと取引できませんが、いかんせん200件近くあり、手で確認していたのでは日が暮れます。こんなものはどうせ読まないのでパソコンにやらせてしまうことにしました。

手段としてはいろいろ考えられます。比較的しっかりとしたものであればobjIEを使うのが良いのだと思うのですが、数分で作る使い捨てマクロには向きません。今回はSendKeysを使って実現することにしました。やや頼りない感じもしますが、IE以外の様々なアプリを操作することができるので、覚えておいて損はないのでしょう。

なおSendKeysの実行後、なぜかNumLockがオフになってしまいます。なんでなんでしょうね。

www.youtube.com
参考Office TANAKA - Excel VBAステートメント[SendKeysステートメント]

Sub Sample()
    Dim i As Integer
    Application.Wait [Now() + "0:00:05"]
    For i = 1 To 100
        SendKeys "+{Tab 2}"
        SendKeys "{Enter}"
        Application.Wait [Now() + "0:00:02"]
        SendKeys "{Tab 5}"
        SendKeys "{Enter}"
        Application.Wait [Now() + "0:00:02"]
    Next i
End Sub