開いたＩＥが閉じたどうかＶＢで知りたい。
解決Sub IE(STR_URL)
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate SRT_URL
End With
End Sub
でＩＥを起動しています。
開くＩＥの数を制限したく、このプロシジャーが起動された
数をカウントして制限していますが、ＩＥが×で閉じられた
場合カウント数をデクリメントしたいです。
こんなことできるんでしょうか。
よろしくご指導ください。
InternetExplorerオブジェクトのOnQuitイベントを利用するのが妥当かと。
魔界の仮面弁士様
いつもありがとうございます。相変わらず「ひよっこ」の
ままで申し訳ありません。
ご指導いただきましたが、今ひとつ良くわからないままの
「ひよっこ」です。わからないままに次のように書いてみ
ましたが、InternetExplorerを終了してもデバッグプリン
されません。もう少しご指導いただけませんでしょうか。
よろしくお願いいたします。
Private Sub Command1_Click()
Set IE = CreateObject("InternetExplorer.Application")
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://www.yahoo.co.jp/"
End With
End Sub
-----------------------------------------------------
Private Sub InternetExplorer_OnQuit()
Debug.Print ">>>>>>>>> IE END >>>>>>>>"
End Sub
> Private Sub InternetExplorer_OnQuit()
WithEvents宣言してありますか?
> Set IE = CreateObject("InternetExplorer.Application")
この行で生成されるInternetExplorerが、非表示状態のままになっていますよ。
Visible = Trueにしましょう。
魔界の仮面弁士様
できました。新年早々今年はとっても爽快な気持ちでスタート
できそうです。
いつもいつもありがとうございます。
ＩＥを二つ起動してどちらが閉じられたかも取得できました。
※参照設定もいるんですよね。(Microsoft Internet Controls)
Option Explicit
Private WithEvents IE1 As InternetExplorer
Private WithEvents IE2 As InternetExplorer
----------------------------------------------------------
Private Sub Command1_Click()
Set IE1 = CreateObject("InternetExplorer.Application")
With IE1
.Visible = True
.Navigate "http://www.yahoo.co.jp/"
End With
End Sub
----------------------------------------------------------
Private Sub Command2_Click()
Set IE2 = CreateObject("InternetExplorer.Application")
With IE2
.Visible = True
.Navigate "http://www.google.co.jp/"
End With
End Sub
----------------------------------------------------------
Private Sub IE1_OnQuit()
Debug.Print ">>>>>>>>IE1 END >>>>>>>>"
End Sub
----------------------------------------------------------
Private Sub IE2_OnQuit()
Debug.Print ">>>>>>>>IE2 END >>>>>>>>"
End Sub
あつかましいお願いですが・・・・・。
もうひとつ以上のような記述を魔界の仮面弁士様ならもっとスマ
ートに書かれるのを見てみたくなりました。
もしお時間があればで結構ですのでスマートな記述、参考にさせ
てくださいませ。
魔界の仮面弁士様
大変お世話になりました。今後ともよろしくお願いいたします。
ありがとうございました。
| ツイート |  |