マクロ作動中にポップが出て、作業が止まる

質問

エクセルで下記のようなマクロを組んで、
URLからサイトタイトルを取得しています。

Sub sample()
Dim Carea As Range
Set Carea = Selection
If Carea(1).Value = "" Then Exit Sub

Dim Tcel As Range

Dim ObjIE As Object
Set ObjIE = CreateObject("InternetExplorer.Application")

For Each Tcel In Carea

ObjIE.Navigate Tcel.Value

Do While ObjIE.Busy = True Or ObjIE.readyState <> 4
DoEvents
Loop

Tcel.Offset(, 1) = ObjIE.document.Title
Next

ObjIE.Quit
Set ObjIE = Nothing

End Sub

途中で、添付画像１のようなポップが出て、マクロが止まります。

自動でサイトタイトルを取得したいのですが、
このポップが出ることで、作業が中断してしまいます。

このポップが出たら、自動で「キャンセル」にする方法はあるでしょうか？
マクロ自体に記述を足して、対策できるでしょうか？

Excel2016です。
よろしくお願いいたします。

回答No.1

SI299792 · ベストアンサー

URL が書いてないので、再現ができません。

多分、Beep音がなるでしょうから、Sleep などで数秒停止してから、
Sendkeys "{Tab 4}~"
のような形で行けるのではないでしょうか。

問題は。出たかどうかをどうやって確認するかです。時間がかかってもいいのなら、無条件に行えばいいのですが。
GetForegroundWindow を使って、１番前のウィンドウハンドルが変化したかどうかで確認できるかもしれません。ウィンドウハンドルがわかれば、参考URL の方法でで強制終了できるかもしれません。
場所が決まっているなら、GetDC GetPicelを使って、色で出たかどうか確認できるかもしれません。

かもしれないばっかりですみません。どのURL で出るのかわからないので、確認ができないのです。

参考URL：

http://hanatyan.sakura.ne.jp/vbhlp/handle.htm