« 【株】 2008/06/09(月) ±0 日経▲308.06 | トップページ | 【株】 2008/06/10(火) ±0 日経▲160.21 »

【Excel VBA備忘ログ】IEの表示完了を・・待てな~い!

どうも決定打を欠くIE表示待ち。
調査は一旦置いといて、実効性があり、いずれ必要になるエラー処理を。
innerTextの一部を取得してhtml読み込みをチェックする為の関数。
だが、読み込みが完了していないとpage.document.all(1)で発生する
実行時エラー'438'などをOn Error Gotoステートメントでトラップする。

Function search_string(page As Object, str As String)
    Dim buf As String

    On Error GoTo error1

    buf = page.document.all(1).innerHTML
    If InStr(1, buf, str, vbTextCompare) <> 0 Then
        search_string = True
        Exit Function
    End If
   
    search_string = False
    Exit Function

error1:
    Debug.Print "error"
    search_string = False

End Function

外では↓(サーバーエラーに対応する為、タイムアウト等は必要)

Do While  search_string(WebBrowser1, "○△刺客") = False
    DoEvents
Loop

にほんブログ村 株ブログ 株日記へ にほんブログ村 株ブログへ

★★何でも見つかる!Yahoo!ショッピング★★

« 【株】 2008/06/09(月) ±0 日経▲308.06 | トップページ | 【株】 2008/06/10(火) ±0 日経▲160.21 »

Excel」カテゴリの記事

コメント

初めまして

http://www.ne.jp/asahi/hishidama/home/tech/vb/webbrowser.html

たぶんこちらを参考にされたのかと思いますが、

こちらの方が早く解決しますよ
三流君のページ
http://www.ken3.org/vba/backno/vba177.html

三流君のページは見てますよー
(文章が冗長で読み辛いのですが・・)
テーブルからのデータ取り出しは
まだやってみてないですsad
私の方法よりいいやり方は沢山
あるでしょうねcrying

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/36872/21532169

この記事へのトラックバック一覧です: 【Excel VBA備忘ログ】IEの表示完了を・・待てな~い!:

« 【株】 2008/06/09(月) ±0 日経▲308.06 | トップページ | 【株】 2008/06/10(火) ±0 日経▲160.21 »

amazon

マイリスト

  • 暮らしをおトクにかえていく|ポイントインカム
  • 暮らしをおトクにかえていく|ポイントインカム
  • フルーツメール
無料ブログはココログ