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.
Sub PS_ACCESO_001()
Dim IE As Object, tags As Object, tagx As Object
If Hoja2.Cbo_Usuario.Value = "" Or Hoja2.Txt_Psw.Value = "" Then Exit Sub
Application.StatusBar = "Verificando usuario. Please wait..."
Set IE = CreateObject("InternetExplorer.Application")
With IE
IE.Navigate "http://pspa91web=login&languageCd=ESP"
While .Busy
DoEvents
Wend
.Document.all.Item("userid").Value = Hoja2.Cbo_Usuario.Value
.Document.all.Item("pwd").Value = Hoja2.Txt_Psw.Value
.Document.all.Item("Submit").Click
.Visible = False
' .Quit
End With
Application.StatusBar = "Conexion Exitosa. Please wait..."
Set IE = Nothing
Call PS_ACCESO_002
End Sub[/CODE]
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.
[CODE]Sub PS_ACCESO_002()
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.
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.TXTFetching info...