Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


69551 / 76732 ←次へ | 前へ→

【11699】Re:エクセルからインターネットエクスプローラーを開きたい
回答  ichinose  - 04/3/15(月) 1:15 -

引用なし
パスワード
   カド さん、りん さん、こんばんは。
>聞き忘れたことがあります。
>
>IEが開いたときに、リンク切れで
>”お探しのページは見つかりませんでした。”
>と出るときは、そのIEを閉じたいのですが、
>このようなことは可能なのでしょうか?
探ってみたら、こんな方法で出来ました(他にも方法はあるかもしれません)。

まず、参照設定で「Microsoft Internet Controls」にチェックして下さい。

標準モジュールに
'==============================================================
Private ie_class(1 To 5) As Class1
'==============================================================
Sub main()
  For idx = 1 To 5
   Set ie_class(idx) = New Class1
   With ie_class(idx)
     Set .ep = CreateObject("InternetExplorer.Application")
     .err_flg = False
     With .ep
      .Visible = True
      .Navigate Range("b" & idx).Value
      Do While .Busy = True Or .ReadyState <> READYSTATE_COMPLETE
        DoEvents
        Loop
      End With
     If .err_flg = True Then
      .ep.Quit
      End If
     End With
   Next idx
End Sub

次にクラスモジュール(名前は、既定名のClass1)に、
'==============================================================
Public WithEvents ep As InternetExplorer
' err_flg true エラー発生
'     false エラー無し
Public err_flg As Boolean
'==============================================================
Private Sub ep_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
  On Error Resume Next
  err_flg = True
  On Error GoTo 0
End Sub
'==============================================================
Private Sub ep_OnQuit()
  Set ep = Nothing
End Sub


これで、プロシジャーmainを実行してみてください。
確認してみて下さい。
但し、繰り返しの実行は、正常に表示されたIEを一度全て閉じてから実行して下さい。
1 hits

【11674】エクセルからインターネットエクスプローラーを開きたい カド 04/3/14(日) 7:00 質問
【11677】Re:エクセルからインターネットエクスプロ... りん 04/3/14(日) 9:20 回答
【11679】Re:エクセルからインターネットエクスプロ... カド 04/3/14(日) 11:36 質問
【11680】Re:エクセルからインターネットエクスプロ... カド 04/3/14(日) 12:04 質問
【11699】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 1:15 回答
【11700】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 1:21 発言
【11709】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 9:50 質問
【11711】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 10:38 発言
【11712】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 10:47 質問
【11748】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 18:53 発言
【11750】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 19:26 質問
【11997】解決 カド 04/3/21(日) 7:01 回答

69551 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free