Office関連

IEを操作するVBAマクロ実行中にオートメーションエラーが発生する場合の対処法

下記コードのような、Internet Explorerを操作する簡単なマクロを実行したところ、ReadyStateプロパティの値を取得しようとした時点でシステム エラーやオートメーション エラーが発生しました。

Public Sub Sample()
  Const READYSTATE_COMPLETE = 4
  
  With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "https://ja.wikipedia.org/wiki/"
    Do While (.Busy = True) Or (.ReadyState <> READYSTATE_COMPLETE)
      Sleep 100
    Loop
    Stop
  End With
End Sub

システム エラーです: &H80010108 (-2147417848) 起動されたオブジェクトはクライアントから切断されました。

実行時エラー ‘-2147417848 (80010108)’:

オートメーション エラーです。
起動されたオブジェクトはクライアントから切断されました。

インターネットオプションを確認したところ、“目的のURLが「信頼済みサイト」に登録されていたことが原因”で、外したらすぐにエラーが発生しなくなりました。

何年か前にも同じことが原因で引っ掛かったことがありましたが、すっかり忘れていました・・・。
これからは忘れないように、対応策をメモしておきます。

関連Webページ

上記関連Webページを見る限り、「信頼済みサイト」の設定でも上手くいかない場合は、

  1. 「管理者権限」で実行する。
  2. 「保護モードを有効にする」をオン・オフする。

といった方法も試すと良さそうです。

関連記事

  1. Office関連

    Word 2013では文書にオンライン ビデオを挿入できるようになりました。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

  2. Office関連

    第4回Office 365勉強会に参加してきました。

    2013/3/2(土)に品川にあるMicrosoftオフィスでOffi…

  3. Office関連

    「あのコマンドどこだっけ? for Office 2013」の紹介

    Word MVPの新田さんのブログでも紹介していただいている自作フリー…

  4. Office関連

    指定したセル範囲をUTF-8やEUC-JP等のテキストファイルとして出力するExcelマクロ

    ExcelファイルをUTF-8のテキストファイルで出力する必要があった…

  5. Office関連

    [Excel Services ECMAScript]アクティブなシート名を取得する。

    埋め込んだExcelワークブックのアクティブなシート名を取得するコード…

  6. Office関連

    Adobe Readerを利用してPDFファイルのページ数を取得するVBAマクロ

    mougの回答用に書いたコードです。mougは半年でログが消えてし…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP