- ベストアンサー
実行時エラー '-2147024726
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
「デバック」押しても駄目ですか？ 「スタート」「ファイル名を指定して実行」サーバーのパス入力、「/RegServer」「OK」 ＞Office関連 Officeは何？ (Acces,Excel,Outlook,Word) 「ファイル名を指定して実行」「regedit」レジストリエディタ起動 HKEY_CLASSES_ROOT\Clsid キーに移動。キーの下に、登録されているオートメーション サーバーの CLSID 以下の値を使用して、自動化する Office アプリケーションのキーを探し・・・ http://support.microsoft.com/kb/244264/ja
関連するQ&A
- 実行時エラー 2147023179
win7、エクセル２０１０でＩＥ操作をしてるのですが どうやらローカルのページ （objIE.Navigate "C:\Users\B\Desktop\a.html"） を表示すると、 Do While objIE.Busy = True の部分で、 実行時エラー 2147023179 オートメーションエラーです。 そのインターフェイスは認識されません。 となります。 しかし、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://login.yahoo.co.jp/config/login?logout=1" 'ログアウトする Do While objIE.Busy = True DoEvents Loop Set objIE = Nothing End Sub このようにネット上のページを表示すると問題なく動きます。 ローカルのページではダメなのでしょうか？
- 締切済み
- オフィス系ソフト
- F8でステップインするとエラーになる理由
F5だとエラーにならないのに、F8でステップインするとエラーになる理由を教えてください。 わざとエラーを発生させているのですが、 Option Explicit Sub test() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Quit '敢えて閉じる objIE.Navigate "http://www.ocn.ne.jp/" End Sub のコードを、Ｆ５で一気に実行するとエラーになりませんが、 Ｆ８で１行ずつ実行すると、 「実行時エラー'-2147417848(80010108)' :オートメーションエラーです。 起動されたオブジェクトは、そのクライアントから切断されました。」 になります。 なぜＦ５だとエラーにならないのでしょうか？ それが不思議です。
- ベストアンサー
- オフィス系ソフト
- ＶＢＡでＩＥ操作ができない エラーになる
vista+オフィス２００７です。 エクセルで --------------------------------------------------------- Sub ie_test() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://www.google.co.jp/" End Sub --------------------------------------------------------- を実行したいのですができません。 Set objIE = CreateObject("InternetExplorer.Application") の部分で、しばらく固まり、その後 「実行時エラー'-2147467259(80004005)': オートメーションエラーです。 エラーを特定できません」 と表示されてしまいます。 前にvista+オフィス２００３の時は 上記のコードで問題なく動作しました。 ２００７でも動く方法を教えてください。ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- これは何がおかしいですか？
こんばんは。 会社のＷＥＢアプリを開くコードなのですがエラーになります。 Dim objIE As Object Sub webアプリ() Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://○○.aspx" Call IE_wait End Sub Sub IE_wait() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub こうすると、 Do Until objIE.ReadyState = READYSTATE_COMPLETE の部分で、 --------------------------- 実行時エラー-2147417848 もしくは 実行時エラー-2147023179 オートメーションエラーです。 そのインターフェイスは認識されません。 --------------------------- になります。 最初に実行時エラー-2147417848になり、デバッグボタンを押すと 実行時エラー-2147023179に変化します。 Dim objIE As Object を Dim objIE As InternetExplorer にしてもエラーが発生します。 しかし、 objIE.Navigate "https://○○.aspx" を objIE.Navigate http://www.goo.ne.jp/ にすると、エラーは発生しません。 https://○○.aspxは存在するアドレスです。 問題なく表示はされています。 表示するまで待たせて次のコードを書きたいので、表示するまで待つ処理をしたいです。 ご教授よろしくお願いします。
- ベストアンサー
- Visual Basic
- オートメーション エラーです
win7 エクセル2010です。 ************************************************* Dim objIE As InternetExplorer Sub Sample1() Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "http://www.goo.ne.jp/" Call wait1 Set objIE = Nothing End Sub ************************************************* Sub wait1() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.readyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub ************************************************* だと うまく行きますが、 URLの部分の社内のURLにすると 実行時エラー-2147417848(80010108) 「オートメーションエラーです。起動されたオブジェクトはクライアントから切断されました」 になります。 社内のＵＲＬの拡張子は、aspxです。 ウォッチウインドウでobjIEをウォッチ式に登録すると objIE.navigate を過ぎると 中身が、<オートメーション エラーです。> になります。 これは社内のシステムの方でプロタクトがかかっているのでしょうか？
- ベストアンサー
- Excel（エクセル）
- 実行時エラー７ メモリが不足しています。
vbaでie操作をしていて、ループしているのですが strURL = objIE.Document.body.innerHTML の部分で、 「実行時エラー７ メモリが不足しています。」 と言うエラーで一時中止になりますが、 そのままＦ５を押すと、通過できます。 エラーではないのでしょうか？ 中断すると治るエラーなのでしょうか？
- ベストアンサー
- Excel（エクセル）
- ＰＣ起動時に ＯＰＴＳＥＲＶＥ実行時エラー
ＰＣ起動時に ＯＰＴＳＥＲＶＥ実行時エラー 214722123（80040111）オートメーションエラーです。class Factoryは要求されたクラスを提供できません。と表示されます。どうすればよいのでしょうか、教えてください。御願いいたします。
- ベストアンサー
- Windows XP
- 実行時エラー 29068
いろんなプロシージャーを経て、 DoCmd.Save acForm, "フォーム1" と言うコードに差し掛かった時、 実行時エラー 29068 この操作を 完了することができません。 コードを中断し、再度実行してください。 と言うエラーが発生します。 前のコードでフォームのコントロールの削除をしているのが原因でしょうか？
- 締切済み
- オフィス系ソフト
- DoEventsは意味ない？
Sub test() Dim ObjIE As InternetExplorer Set ObjIE = CreateObject("InternetExplorer.Application") ObjIE.Navigate "http://www.yahoo.co.jp/" ObjIE.Visible = True Do While ObjIE.Busy = True DoEvents Loop Debug.Print ObjIE.LocationName Set ObjIE = Nothing End Sub ------------------------------------- を実行した所、イミディエイトウインドウに何も表示されないので ObjIE.LocationNameを ObjIE.Refreshに変えてみたところ、 ------------ 実行時エラー ‘-2147467259 オートメーションエラーです。エラーを特定できません。 ------------ となりました。 ステップインでゆっくり実行するとできたことから、 ObjIE.Refresh にたどり着くまでに、ＩＥにサイトが表示されてないのが原因のようです。 と言いう事は、 ------------ Do While ObjIE.Busy = True DoEvents Loop ------------ のコードは全く持って無意味なのでしょうか？ 「表示するまで待つ」と言う意味だと思っていたのですが 表示し終わる前に次のコードに進んでしまっているようです。
- ベストアンサー
- オフィス系ソフト
- https:/○○login.php エラーになる
win7 32ビット オフィス２０１０です。 https:/○○login.php のようなサイトを開こうとすると ------------------------------------------------------ Dim objIE As InternetExplorer Sub test() Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https:/○○login.php" Call WaitIE1(objIE) End Sub ------------------------------------------------------ Function WaitIE1(objIE As InternetExplorer) Do While objIE.Busy = True DoEvents Loop Do While objIE.Document.ReadyState <> "complete" DoEvents Loop End Function ------------------------------------------------------ このコードがエラーになります。 Do While objIE.Document.ReadyState <> "complete" の部分で 実行時エラ― -2147417848 オートメーションエラーです。 起動されたオブジェクトはクライアントから切断されました。 となります。 objIEをウォッチ式に登録してみてみると Function WaitIE1(objIE As InternetExplorer) の時に、「変数なし」となっています。 objIE.Navigate http://www.goo.ne.jp/ にすれば、 エラーにならずに、コードが最後まで行きます。 ウォッチ式を見ても 「変数なし」にはなりません。 この違いは何でしょうか？
- ベストアンサー
- Visual Basic
お礼
ありがとうございます。