Acceso rápido mediante macro a AFPnet
Tengo la siguiente macro:
Sub ACCESO_SOL_SUNAT()
Dim IE As Object
Dim Boton As Object
Dim Opcion2 As Object
Dim Opcion3 As Object
Set IE = CreateObject("InternetExplorer.Application")
On Error Resume Next
If Range("E27").Value = "Declaración y Pago" Then
IE.Navigate "https://www.sunat.gob.pe/xssecurity/SignOnVerification.htm" & _
"?signonForwardAction=https%3A%2F%2Fwww.sunat.gob.pe%2Fol-at-itcanal%2Fcanal.do"
Application.Wait (Now + TimeValue("00:00:02"))
While IE.Busy
DoEvents
Wend
IE.Document.all.Item("ruc").Value = Range("E13").Value
IE.Document.all.Item("usuario").Value = Range("E17").Value
IE.Document.all.Item("clave").Value = Range("E19").Value
Set Boton = IE.Document.getElementById("btnAceptar")
Boton.Click
ElseIf Range("E27").Value = "AFPnet" Then
IE.Navigate "https://www.afpnet.com.pe/ProyectoPcrWeb/loginBienvenida.jsp"
Application.Wait (Now + TimeValue("00:00:02"))
While IE.Busy
DoEvents
Wend
Set Opcion2 = IE.Document.getElementById("btnPorRuc")
Opcion2.Click
IE.Document.all.Item("numeroRuc").Value = Range("E13").Value
IE.Document.all.Item("cuentaUsuario.value").Value = Range("I17").Value
IE.Document.all.Item("claveUsuario.value").Value = Range("I19").Value
Set Boton = IE.Document.getElementById("btnAceptar")
Boton.Click
End If
IE.Visible = True
Set IE = Nothing
End
End Sub
Pero en el caso para ingresar a la AFPnet no puedo realizarlo.
Pido su apoyo en la solución del caso.
1 Respuesta
[Hola
Cada web y la interacción con sus objetos/elementos necesita de una macro que lo haga, no es que haya una macro para cada acción ("navegar en una web", "ordenar una columnas", etc.) por más que ellas se parezcan. La macro que muestras es para una web especifica e interactúa con ellos, tú debes hacer una para la web que menciona.
Sugiero comenzar leyendo por aquí:
https://abrahamexcel.blogspot.com/2019/01/interactuando-con-internet.html
Abraham Valencia
Gracias Abraham, e leído la página web pero me gustaría saber más al fondo de esta interacción, dado que busco como interactuar pero no encuentro la lógica.
Muchas gracias.
Sugiero volver a leer la web y, sobre todo, tratar de entender lo que ahí explico:
Sub Navegar()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://www.afpnet.com.pe/ProyectoPcrWeb/loginBienvenida.jsp"
Do Until IE.ReadyState = 4
DoEvents
Loop
With IE
.document.getElementsByName("numeroRuc")(0).Value = "12345678901"
.document.getElementsByName("cuentaUsuario")(0).Value = "usuario"
.document.getElementsByName("claveUsuario")(0).Value = "1234"
.Navigate ("javascript:Ingresar()")
.Visible = True
End With
Set IE = Nothing
End SubSinceramente usar el "Inspeccionar" de Chrome, como ahí explico, es la clave de todo.
Abraham Valencia
