Acceso de excel a IDSE
Publicado por victor (2 intervenciones) 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:
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 internetSet IE = CreateObject("internetexplorer.application")
With IE
'hacemos visible el exploradorIE.Visible = True
'navega a la página deseadaIE.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 .BusyDoEvents
Loop
' carga el nuevo documentoSet pagina = IE.document
pagina.getElementById("performSearch(true, 1);").Click
End With
End Sub
Valora esta pregunta
0