Como conectar vba de excel a Web internet pagina IDSE
Publicado por HELEODORO ISAI (2 intervenciones) el 02/09/2021 19:00:09
Sub RellenarIDSE()
Dim ie As Object
'creamos el objeto para el navegador Internet Explorer
Set ie = CreateObject("InternetExplorer.application")
'dentro del navegador, accedemos a idse
ie.Navigate "https://idse.imss.gob.mx/imss/"
ie.Visible = True
Do
DoEvents
Loop Until ie.readyState = 4
' hacer que reconosca y escriba en la opcion Usuario:
ie.document.getElementsByName("idUsuario")(0).Value = "XAXX010101000"
' hacer que reconosca y escriba en la opcion Contraseña:
ie.document.getElementsByTagName("password")(0).Value = "contraseña"
End Sub
'ejecuto este tipo de codigo con otra pagina y me funciona bien, pero con esta pagina en especifico no me funciona https://idse.imss.gob.mx/imss/
Dim ie As Object
'creamos el objeto para el navegador Internet Explorer
Set ie = CreateObject("InternetExplorer.application")
'dentro del navegador, accedemos a idse
ie.Navigate "https://idse.imss.gob.mx/imss/"
ie.Visible = True
Do
DoEvents
Loop Until ie.readyState = 4
' hacer que reconosca y escriba en la opcion Usuario:
ie.document.getElementsByName("idUsuario")(0).Value = "XAXX010101000"
' hacer que reconosca y escriba en la opcion Contraseña:
ie.document.getElementsByTagName("password")(0).Value = "contraseña"
End Sub
'ejecuto este tipo de codigo con otra pagina y me funciona bien, pero con esta pagina en especifico no me funciona https://idse.imss.gob.mx/imss/
Valora esta pregunta
0