楽天RSSのデータを表示可能にするまで

vba(エクセルマクロ)

楽天ＲＳＳはエクセル上で現在の株価、出来高、気配値などのデータをリアルタイムに表示するツールです。ＲＳＳといってもブログの更新情報のほうじゃなく、リアルタイムスプレットシートの略です紛らわしいです。数年前から楽天から提供されていますが、ぐぐってもある年を境に出てきません。なぜかを考えると多少怖くなるなど。。。
このツールを使ってエクセルでマクロでぐいぐいやると、かなりいろんな使い方が出来そうです。普通にマウスで操作すれば楽天ＲＳＳのデータを表示可能にできますが、この記事ではその操作を自動的にやってしまおうというものです。

楽天ＲＳＳを利用するための条件

データを表示可能にするまでの操作手順

  • エクセル起動、マクロ呼び出し
  • マーケットスピード起動
  • マーケットスピードログイン（キーボードマクロによる）
  • 楽天ＲＳＳ起動

以下その操作手順相当のマクロコード

Function initmkspd()

    ' 外部プログラム実行オブジェクトを取得
    Set WshShell = CreateObject("WScript.Shell")
    
    ' マーケットスピード起動（デフォルトインストール時）
    WshShell.CurrentDirectory = "C:\Program Files\MarketSpeed\MarketSpeed"
    WshShell.Exec ("C:\Program Files\MarketSpeed\MarketSpeed\MarketSpeed.exe")
    
    ' マーケットスピードのウィンドウを最大化（プロセスＩＤでウィンドウ特定）
    WshShell.CurrentDirectory = "C:\Program Files\MarketSpeed\MarketSpeed"
    Set objMS = WshShell.Exec("C:\Program Files\MarketSpeed\MarketSpeed\MarketSpeed.exe")
    WshShell.AppActivate (objMS.ProcessID)
    Sleep (8000) 'へぼＰＣなので待ちます。
    WshShell.SendKeys ("% X") ' ="ALT+X"
     
    ' マーケットスピードをマウス操作でログイン（キーボードマクロ）
    WshShell.Run "C:\xxx\KMmacro.exe /FILE=C:\xxx\login.MAC", 7, True

    ' マーケットスピードのウィンドウを最小化
    WshShell.SendKeys ("% N") ' ="ALT+N"
    
    ' 楽天ＲＳＳ起動
    WshShell.Exec ("C:\Program Files\MarketSpeed\MarketSpeed\RSS.exe")

End Function

キーボードマクロによるログイン手続き（C:\xxx\login.MAC）

LCLICK 1214,38  #画面解像度が1280x800の場合の目安
KEY <passwd>
KEY [RET]

楽天RSS説明記事関係
http://kabu.muimi.com/k/rakuten_rss/
http://www.moderns.co.jp/trade/auto.html
http://www2s.biglobe.ne.jp/~katsum/marketspeed/index.html
http://www10.atwiki.jp/ms/

キーボードマクロ
http://www.vector.co.jp/soft/win95/util/se211440.html