削除

エクセルvbaでIEの制御を行っていますが、ポップアップの確認ウインドウの操作ができません。削除

Message#1 2015年9月13日(日)10時21分
From: Ogawa

初めて質問させていただきます
エクセルvbaでIEの制御を行っていますが、ポップアップの確認ウインドウの操作ができません。
下記コードです、よろしくお願いします

ポップアップ確認ウインドウのソース
<a class="menu" href="#" onclick="confirmMovePage('ログアウト確認','ログ
アウトします。よろしいですか？', 'http://'); return false;">LOGOUT</a>

操作サブルーチン
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Sub keybd_event Lib "user32" _
() ' (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Declare Function GetKeyboardState Lib "user32" ()

Sub ログアウトTest()
'******************************
' ログアウト
'******************************
Dim nloop As Integer
'--------------------------------
Dim objA As Object
'--------------------
Set objA = objIE.Document.getElementsByTagName("a")
'--------------------------------
For nloop = 0 To objA.Length - 1
'OuterHTMLでAの全体を見る
'ソースの文字を探す
If InStr(objA(nloop).outerHTML, "LOGOUT") > 0 Then
objA(nloop).Click 'クリックする
Exit For 'ループを抜ける
End If
Next
'--------------------------------
'ポップアップ処理
Sleep 5000
'----------------------
' SendKeys "{TAB}"

SendKeys "{ENTER}"
'--------------------------------
Set objA = Nothing 'オブジェクト変数解放
'--------------------------------
'画面表示完了を待つ
Call IE表示待ち(1)
'--------------------------------
'******************************
End Sub

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。