Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas,
reciban un cordial saludo,
despues de tanto buscar y probar no he podido lograr llenar un formulario WEB con una dato y luego hacer la busqueda.
a ver quien me una ayuda con este codigo.
Primero hago la conexion del usuario y me logeo con existo con este codigo.
Luego de estar logueado lo que intento es navegar y tratar de enviar un valor y hacer un sumit o click sobre buscar... pero no he podido lograrlo ni insertar el valor "DESC" ni hacer la busqueda.
Dim IE As Object
If Hoja2.Cbo_Usuario.Value = "" Or Hoja2.Txt_Psw.Value = "" Then Exit Sub
Application.StatusBar = "Consultando pagina. Please wait..."
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate "http://%"
While .Busy
DoEvents
Wend
' .Document.all.Item("AJ_UPDITMDE_RCT_RUN_CNTL_ID").Value = "DESC" ' Esto me da error XXXX
' .Document.all.Item("#ICSearch").Click ' Esto me da error XXXX
Do While .Busy
DoEvents
Loop
' IE.Document.forms("win0").getelementbyid("#ICSearch").Click ' Esto me da error XXXX
.Visible = True
Set IE = Nothing
End With
End Sub
[/CODE]
Anexo el codigo que me da el el explorador el la pagina donde deseo rellenar el texto " DESC" y dar buscar.
DEFINE_ITEMS.AJ_UPD_ITM_DESC.TXT