introducir valores en página oficial del catastro desde vba
Publicado por Torremolino (1 intervención) el 27/04/2017 19:39:03
Hola a todos, solicito buestra ayuda para resolver un problema que me trae de cabeza.... quiero mandar la la siguente página del catastro (https://www1.sedecatastro.gob.es/OVCFrames.aspx?TIPO=CONSULTA) una referencia catastral y que haga click uno de los botones (Gráfica por ejemplo).
El caso es que he desarrolladdo una macro para hacerlo pero me arroja un error 424 y no se como resolverlo.
Alguien tiene alguna idea???
estoy perdido puesto en códigos parecidos me han servido en otras ocasiones
Gracias de antemano y un saludo
El caso es que he desarrolladdo una macro para hacerlo pero me arroja un error 424 y no se como resolverlo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub catastro(dato As String)
Dim IE As New SHDocVw.InternetExplorer
IE.Visible = True
IE.Navigate "https://www1.sedecatastro.gob.es/OVCFrames.aspx?TIPO=CONSULTA"
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
IE.Document.forms("form1").elements("table").getElementById("txtRC").Value = dato 'aqui sale el error
'IE.Document.forms("form1").getElementById("txtRC").Value = dato DEVUELVE EL MISMO ERROR
IE.Document.getElementById("btnAlfanumerico").Click 'tambien arroja el mismo error
End Sub
Alguien tiene alguna idea???

Gracias de antemano y un saludo
Valora esta pregunta


0