Cambia de la macro de buscador Explore a Chrome
Se tiene la siguiente macro, en la cual desearía cambiar el navegador que hace referencia, esta macro al ejecutar abre el Explore, hay forma que al ejecutar navegue con el Chrome.
ub 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("E42").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("E8").Value
IE.Document.all.Item("usuario").Value = Range("E10").Value
IE.Document.all.Item("clave").Value = Range("E12").Value
Set Boton = IE.Document.getElementById("btnAceptar")
Boton.Click
ElseIf Range("E42").Value = "Declara Facil" Then
IE. Navigate "abre otra pagina, como la extensión es larga no me permite copiarlo"
Application.Wait (Now + TimeValue("00:00:02"))
While IE.Busy
DoEvents
Wend
Set Opcion2 = IE.Document.getElementById("btnPorRuc")
Opcion2.Click
IE.Document.all.Item("TXTRuc").Value = Range("E8").Value
IE.Document.all.Item("txtusuario").Value = Range("E10").Value
IE.Document.all.Item("txtContrasena").Value = Range("E12").Value
Set Boton = IE.Document.getElementById("btnAceptar")
Boton.Click
Else
IE.Navigate "https://e-menu.sunat.gob.pe/cl-ti-itmenu/MenuInternet.htm"
Application.Wait (Now + TimeValue("00:00:01"))
While IE.Busy
DoEvents
Wend
Set Opcion3 = IE.Document.getElementById("btnPorRuc")
Opcion3.Click
IE.Document.all.Item("txtruc").Value = Range("E8").Value
IE.Document.all.Item("txtusuario").Value = Range("E10").Value
IE.Document.all.Item("txtContrasena").Value = Range("E12").Value
End If
Set Boton = IE.Document.getElementById("btnAceptar")
Boton.Click
IE.Visible = True
Set IE = Nothing
End
End Sub
1 Respuesta
[Hola
VBA no tiene la capacidad de interactuar con Chrome como sí con Internet Explorer; si deseas hacerlo necesariamente tienes que recurrir a alguna aplicación y/o librería y/o similar de terceros. Una opción es Selenium:
https://www.makeuseof.com/tag/how-to-automate-firefox-or-chrome-with-vba-and-selenium/
https://code.google.com/archive/p/selenium-vba/
Saludos
Abraham Valencia
PD1: Se pueden hacer cosas muy básicas con Chrome como abrir enlaces o un par de cosas solo con Google, nada más
PD2: Lo mismo con Edge o Firefox
Buenos días Abraham:
Encontré esta macro que abre con el Chrome, pero no se como hacer para configurar a la macro de la pregunta.
Sub test544()
Dim chromePath As String
chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
Shell (chromePath & " -url https://www.bbva.es/particulares/index.jsp")
End Sub
Espero me puedan ayudar.
Muchas gracias.
Te vuelvo a comentar que VBA no tiene la capacidad de interactuar con Chrome como sí lo hace con Internet Explorer; si deseas usar Chrome necesariamente tienes que recurrir a alguna aplicación y/o librería y/o similar de terceros.
Sobre la macro que envías, sugiero re-revisar mi Post Data 1 (PD1) en donde te comento que con Chrome se puede hacer cosas muy básicas como abrir enlaces, que es justamente lo que muestras en esa macro, y un par de cosas más pero solo con Google, absolutamente nada más
