Tengo una macro de Excel VBA que

abre IE,navega al sitio web de Medicare,me registra encompara las reclamaciones enumeradas en el sitio web con las que ya están en el libro de trabajome avisa de cualquier diferencia

Es durante el paso de inicio de sesión que tengo un problema, por lo que he reproducido esa parte del código a continuación. Tan pronto como.click línea se ejecuta, aparece una ventana emergente que le pide al usuario que haga clic en el botónDE ACUERDO Botón para proceder. La ejecución de macros se suspende hasta que hago clic manualmente en laDE ACUERDO botón en la ventana emergente.

El código fuente detrás de lahttp://www.mymedicare.gov La página web tiene información relativa a la ventana emergente, pero no he podido averiguar cómo usarla para poder hacer clic en la ventana emergente mediante programación.DE ACUERDO botón.

Cualquier ayuda en términos de averiguar cómo hacer clic en el menú emergente mediante programación.DE ACUERDO botón sería muy apreciado.

Nota: Para el propósito de esta pregunta, se puede usar cualquier ID de usuario y contraseña. Si maneja la ventana emergente, pasará a una página que dice algo así como un ID de usuario / contraseña incorrectos.

Eso indicará que has tenido éxito en el manejo de la ventana emergente.

Sub Medicare_Claims()' 
' Update the status bar 
  Application.StatusBar = "Running the Medicare Claims subroutine" 

' Open the "MyMedicare web page 
    Set ie = CreateObject("InternetExplorer.Application") 
    With ie 
        .Visible = True 
        .Navigate "https://www.mymedicare.gov/" 
    End With 

' Loop until the page is fully loaded 
    Do Until ie.ReadyState = 4 And Not ie.Busy 
        DoEvents 
    Loop 

' Log-in 
    ie.Document.all.Item("ctl00_ContentPlaceHolder1_ctl00_HomePage_SWEUserName").Value = "abcde"           
    ie.Document.all.Item("ctl00_ContentPlaceHolder1_ctl00_HomePage_SWEPassword").Value = "12345"     
    ie.Document.getElementById("ctl00_ContentPlaceHolder1_ctl00_HomePage_SignIn").Click

' Loop until the page is fully loaded 
    Do Until ie.ReadyState = 4 And Not ie.Busy 
        DoEvents 
    Loop 

    Application.Wait (Now + TimeValue("0:00:15")) 

' Navigate further to the Search Claims" web page 
    ie.Navigate "https://www.mymedicare.gov/searchclaims.aspx"