Buenos días
Estoy creando una formula cual al escribir un numero llamado RTN me devulve el un nombre luego de una consulta web.
El codigo vba es el siguiente
Function Registro(RTN As String) Dim IE As Object Dim Respuesta As String Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://enlacertn.sar.gob.hn" IE.Visible = True While IE.busy DoEvents Wend IE.document.All.Item("txtCriterio").Value = RTN IE.document.All("btnBuscar").Click Application.Wait (Now + TimeValue("0:00:03")) Do Until IE.ReadyState = 4 DoEvents Loop Respuesta = IE.document.getElementById("LblNombre").innertext Registro = Respuesta IE.Quit End Function
necesito extraer el elemento Id=LblNombre pero me devulve un error la funcion
Adjunto imagenes para mayor comprension
Excel Error
Antes dela consulta
Despues de la consulta
codigo de la pagina web
Si son tan amables de indicarme donde tengo el error en la formula y de paso explicarme un poco como seria el codigo para aprender.
Gracias!