IE操作時のオートメーションエラーと戦う

2019年2月19日2019年8月28日

Contents

1. はじめに
2. オートメーションエラーとは？
3. 基本的な対策
4. ソースコード
5. こんな時に発生する
6. 最後に

はじめに

Excel VBAでツールを作成する時に、よく目にするオートメーションエラーについてIEブラウザ操作関連のオートメーションエラーについて、自分なりの対策を残しておきます。

オートメーションエラーとは？

メモリ不足や、参照の切れた変数の使用、ブックに対する矛盾する処理、PCが重い場合等々…様々な理由が原因で発生するエラーです。

基本的な対策

基本的にはエラー発生時のメッセージに記載されているエラーコードをGoogleで検索すると、先人様達の解決策がヒットします。

しかし中には全く解決策のないものや、解決策を講じてもまだ発生するなんてことも結構あります。特にIEブラウザ操作関連がオートメーションエラーの発生率が高かったので今回は記事にまとめようと思いました。

ソースコード

いろいろ話す前にIEブラウザ操作時のテンプレートとして使用できるソースコードを載せておきます。
InternetExplorerMediumを使用しているので、IEの保護モードは解除してください。

Option Explicit
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Main()
    
    Dim objIE As InternetExplorerMedium
    
    'IEプロセスを削除'
    IeProcessKill
    
    'Googleトップページを開く'
    CreateIE objIE, "https://www.google.co.jp/"
    
    '1秒待機'
    Sleep 1000
    
    'IEを閉じる'
    objIE.Quit
    Set objIE = Nothing
    
    '処理完了メッセージ表示'
    MsgBox "処理完了"
    
End Sub
'IEのプロセスを削除する関数'
Public Sub IeProcessKill()
    
    Dim objShell As Object
    Dim objExec As Object
    
    Set objShell = CreateObject("WScript.Shell")
    Set objExec = objShell.Exec("taskkill.exe /F /IM iexplore.exe")
    Sleep 1000
    
End Sub
'Internet Explorer作成関数'
Sub CreateIE(ByRef objIE As InternetExplorerMedium, ByVal URL As String)
    
    Dim timeout As Date
    timeout = Now + TimeSerial(0, 0, 10)
    
    If objIE Is Nothing Then
        Set objIE = New InternetExplorerMedium
    End If
    
    objIE.Visible = True
    objIE.navigate URL
    
    Do While objIE.Busy = True Or objIE.readyState <> 4
        Sleep 100
        DoEvents
        If Now > timeout Then
            objIE.Refresh
            timeout = Now + TimeSerial(0, 0, 10)
        End If
    Loop
    
End Sub

Option Explicit

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Main()

Dim objIE As InternetExplorerMedium

'IEプロセスを削除'

IeProcessKill

'Googleトップページを開く'

CreateIE objIE, "https://www.google.co.jp/"

'1秒待機'

Sleep 1000

'IEを閉じる'

objIE.Quit

Set objIE = Nothing

'処理完了メッセージ表示'

MsgBox "処理完了"

End Sub

'IEのプロセスを削除する関数'

Public Sub IeProcessKill()

Dim objShell As Object

Dim objExec As Object

Set objShell = CreateObject("WScript.Shell")

Set objExec = objShell.Exec("taskkill.exe /F /IM iexplore.exe")

Sleep 1000

End Sub

'Internet Explorer作成関数'

Sub CreateIE(ByRef objIE As InternetExplorerMedium, ByVal URL As String)

Dim timeout As Date

timeout = Now + TimeSerial(0, 0, 10)

If objIE Is Nothing Then

Set objIE = New InternetExplorerMedium

End If

objIE.Visible = True

objIE.navigate URL

Do While objIE.Busy = True Or objIE.readyState <> 4

Sleep 100

DoEvents

If Now > timeout Then

objIE.Refresh

timeout = Now + TimeSerial(0, 0, 10)

End If

Loop

End Sub

Googleのトップページを開いて、閉じるサンプルです。
強いて特筆する点と言えば、仰々しく書いてあるIEのプロセスを削除する部分でしょうか。
実は無くても、普通に動きます。しかしある操作を行うとオートメーションエラーが発生してしまう状態なのです。

その操作ですが、Quit後に再度処理を実行することです。
objIEは閉じている、Nothingもセットしてるから安心！とは行きません。
まだプロセスが残存しています。試しにIeProcessKillのコール処理を削除して複数回実行するとページトップ画像の-2125463506 (8150002e)エラーが発生すると思います。

これが意外とソースを見ているだけでは気付かないもので、しばらく頭を悩ませることになります。エラーコードで検索をかけても別の解決策が提示されていることが多いので、結局治らず…。という方もいたのではないでしょうか。