VBAのIE制御

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

Sub ieCheck(objIE As InternetExplorer)

　Dim timeOut As Date

　'完全にページが表示されるまで待機する
　timeOut = Now + TimeSerial(0, 0, 20)

　Do While objIE.Busy = True Or objIE.ReadyState <> 4
　　DoEvents
　　Sleep 1
　　If Now > timeOut Then
　　　objIE.Refresh
　　　timeOut = Now + TimeSerial(0, 0, 20)
 　 End If
　Loop

　timeOut = Now + TimeSerial(0, 0, 20)

　Do While objIE.document.ReadyState <> "complete"
　　DoEvents
　　Sleep 1
　　If Now > timeOut Then
　　　objIE.Refresh
　　　timeOut = Now + TimeSerial(0, 0, 20)
　　End If
 　Loop

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

こちらの構文と引数の内容は以下になります。尚、引数はすべて参照渡しで渡されます。

引数objIEは必須項目で、Webページの読み込み完了まで待機処理するInternetExplorerオブジェクトを指定します。InternetExplorerオブジェクトを引数に設定することで、複数のオブジェクトを処理することができます。

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

※ドラッグ(スワイプ)すると全体を確認できます。

まず、処理を停止するWindows APIのSleep関数を使用できるようにAPIの宣言をします。宣言する場合は、宣言セクション内に記述します。通常のAPI宣言であれば1行記述するだけで済むのですが、こちらでは条件分岐ができるIf～Then～Elseステートメントを利用して、宣言内容を設定しています。

これは、office2010で64bit（ビット）版を利用している場合、API宣言の記述方法が異なるためです。使用するPC環境に合わせた記述方法でも問題ありませんが、汎用性を持たせるために条件分岐させています。こちらの問題については「32ビット版のOffice2010プログラムでVBAマクロを編集すると・・・」に詳しく解説されていますので、一度確認してください。

　Dim timeOut As Date

　'完全にページが表示されるまで待機する
　timeOut = Now + TimeSerial(0, 0, 20)

※ドラッグ(スワイプ)すると全体を確認できます。

次にieCheckサブルーチン内の処理ですが、Dimステートメントを利用して変数timeOutを日付型(Date)で宣言します。そして、現在の時刻を返すNow関数と指定した日付・時刻に対応した数値をDate型へ変換するTimeSerial関数を利用して、変数timeOutに処理時間+20秒を加算した時間を代入します。例をあげると処理時間10:15:20の場合、変数timeOutの値は+20秒の10:15:40になります。

　Do While objIE.Busy = True Or objIE.ReadyState <> 4
　　DoEvents
　　Sleep 1
　　If Now > timeOut Then
　　　objIE.Refresh
　　　timeOut = Now + TimeSerial(0, 0, 20)
 　 End If
　Loop

※ドラッグ(スワイプ)すると全体を確認できます。

こちらは待機処理には読み込みの状態を示すInternetExplorerオブジェクトのBusyプロパティとReadyStateプロパティを利用して、InternetExplorerオブジェクトの状態を対象にチェックしています。尚、オブジェクト変数objIEはieCheckサブルーチンの引数で設定されたIEオブジェクトが参照されます。

また、待機処理の内容は「InternetExplorerオブジェクトのBusyプロパティ値がTrueまたはReadyStateプロパティ値が4以外の場合はループ処理を繰り返す」処理になりますが、処理の詳細や無限ループ対策などの詳しい内容については、「指定したURLをIE(InternetExplorer)で起動させる」を確認してください。

　timeOut = Now + TimeSerial(0, 0, 20)

　Do While objIE.document.ReadyState <> "complete"
　　DoEvents
　　Sleep 1
　　If Now > timeOut Then
　　　objIE.Refresh
　　　timeOut = Now + TimeSerial(0, 0, 20)
　　End If
 　Loop

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

先ほどはInternetExplorerオブジェクトの状態を対象にチェックしましたが、こちらはではDocumentオブジェクトの状態を対象にチェックをしています。まず、こちらでも同じように変数timeOutに処理時間+20秒を加算した時間を代入します。

待機処理の内容は「DocumentオブジェクトのReadyStateプロパティ値が"complete"以外の場合はループ処理を繰り返す」処理になりますので、こちらのループ処理を抜けたとき初めてすべての読み込みが完了したことを表します。

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次