2007/04/12 本日の結果報告（テスト投稿）

＜エントリ＞
　text1
　text2

＜利確/損切＞
　text1
　text2

＜含み損益＞
　text1
　text2

＜総資産残高＞
　text1
　text2

------------------------------------------------------------
　　　　　↑ここまで自動↑


テストで投稿してみました。

マクロ実行ボタンを押してから約20秒で投稿が完了します。
ヒジョーに便利でございます。

これならメンドくさがらずに更新していけそう？？かな。。

ブログ自動更新機能

しばらくぶりの更新です。

シストレの実機能ではないのですが、
シストレ結果を自動でこのブログにUPする仕組みを作成してみました。

以前ドラフトのところに、「有ったら便利機能」として挙げておりましたが、
VBAでのIE操作(と言ってもほとんどがIEのソース解析)の興味と勉強を兼ね、
先に作ってしまいました。

結論から言うと、証券会社のWEB注文画面を解析するよりもはるかに単純で簡単です。
(自分が上達したかと勘違いしてしまう程・・・・汗)


　＜処理の流れ＞
　①IEオブジェクトを作成し、ログインページを開く。
　　※データ取得機能Aで書いた通り。。

　②入力フォームにIDとパスワードを入力する。
　　objIE.Document.Forms("フォーム名").all("入力項目名").Value = "入力値"

　③ボタンを押して次に進む。
　　objIE.Document.Forms("フォーム名").submit

　④新規投稿ページで内容を入力する。
　　タイトルや本文はパスワードなどと同じ方法。
　　カテゴリのドロップダウンリストは、
　　objIE.Document.Forms("フォーム名").all("リスト名").Value = "値"

　⑤UPLOAD＆ログアウト


ってな感じの処理。簡単でしょ～。。。。

実質3時間くらいでベースは出来ました。
あとは、これをシストレ本体と連携させ実データをUPしてみよ。