平凡な会社員のトレード日誌

日本株のシステムトレード記録。年率50%を目標にExcelを使い自動売買しています。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

注意事項

InternetExplorerの表示された内容を元にプログラムで処理を制御するので、必ずInternetExplorerの表示が終わるのを待つプログラム(処理)を入れる

InternetExplorerの表示を更新するような処理を組み込む

HPがリニューアルしたらプログラムの変更が必要です。当然のことながら、HTMLの該当する部分が変更になった場合は、VBAも変更する必要があります。

InternetExplorerの表示が終わるのを待つVBAは以下のようにしています。
ここまでする必要はないのかもしれません・・・
しかし、表示が終わる前にVBAの処理が先に進んでしまう場合がよくあるので念には念を入れています^^
Do While objIE.Busy = Tru
 DoEvents
Loop
Do While objIE.ReadyState <> 4
 DoEvents
Loop
Dim time10 as Date
time10 = DateAdd("s", 3, Now())
Do While time10 > Now()
 DoEvents
Loop

画面表示の更新のVBAです。
Set objShell = CreateObject("Shell.Application")
For Each objWindow In objShell.Windows
 If TypeName(objWindow.Document) = "HTMLDocument" Then
  Set objIE = objWindow
  Exit For
 End If
Next
スポンサーサイト
  1. 2007/03/10(土) 23:41:22|
  2. Excel自動発注
  3. | トラックバック:0
  4. | コメント:0

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://kojimaro.blog70.fc2.com/tb.php/202-fdf40829
この記事にトラックバックする(FC2ブログユーザー)

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。