Visual Basic para Aplicaciones - Acceso de excel a IDSE

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Acceso de excel a IDSE

Publicado por victor (1 intervención) el 09/12/2020 05:09:50
Hola

Estoy intentando ingresar a esta pagina web mediante una macro de excel pero me manda este error:

Se ha producido el error '-2147467259 (80004005)' en tiempo de ejecución: error de automatización.

Tengo habilitadas las referencias de:
Microsoft Internet controls
Microsoft HTML Object Library
Microsoft XML, v6.0

El código que uso es este:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub parser()
 
Dim IE As InternetExplorer
Dim pagina As HTMLDocument
Dim usuario As String
Dim contrasena As String
 
usuario = "Z3426218106"
contrasena = "SME970731SU4"
 
 
'crea el explorador de internet
Set IE = CreateObject("internetexplorer.application")
 
With IE
 
'hacemos visible el explorador
IE.Visible = True
 
'navega a la página deseada
IE.Navigate2 "https://idse.imss.gob.mx/imss/"
 
 
 
'la página cargada la asignamos a la variable "pagina"
Set pagina = IE.document 'AQUI DA EL ERROR
 
With pagina
 
pagina.getElementById("certificado").innerText = "C:\Users\victor.lopez\OneDrive\Layout SUA y MOVIMIENTOS IMSS\Certificados\CERTIFICADO DIGITAL ISL QRO 2019.pfx"
pagina.getElementById("Idusuario").innerText = usuario
pagina.getElementById("password").innerText = contrasena
'pagina.parentWindow.execScript ("local_runClick();")
End With
 
Do While .Busy
DoEvents
Loop
 
' carga el nuevo documento
Set pagina = IE.document
 
 
pagina.getElementById("performSearch(true, 1);").Click
 
 
End With
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder