none
EXPORTAR DE EXCEL A PAGINA WEB RRS feed

  • Pregunta

  • BUENAS TARDES:

    PRIMERAMENTE AGRADECER POR EL TIEMPO TOMADO PARA PODER AYUDARME

    QUISIERA SABER COMO LLEVAR DATOS DE MI EXCEL A UNA PAGINA WEB DONDE ME PIDE USUARIO Y CONTRASEÑA

    POR EJEMPLO:

    EN LA COLUMNA "A" TENGO CLIENTES EN LA COLUMNA "B" USUARIO, EN LA "C" LA CONTRASEÑA Y EN LA D TENGO ADUANA

    EN LA COLUMNA "G" POR DECIR QUE YO ESCRIBA CLIENTE "PEPITO"

    QUISIERA QUE ME ABRA UNA PAGINA WEB http://anbsawl1.aduana.gob.bo:7401/sicoin/ 

    ESTA PAGINA WEB ME PIDE USUARIO Y CONTRASEÑA

    QUIERO QUE ME BUSQUE AL CLIENTE "PEPITO" EN LA COLUMNA "A" Y QUE LO RELLENE EN LA PAGINA WEB EL USUARIO, CONTRASEÑA Y ADUANA CORRESPONDIENTE A PEPITO

    ESTO ES POSIBLE? POR FAVOR SI ME PUDIERAN COLABORAR, MUCHAS GRACIAS


    Brayan


    viernes, 26 de julio de 2019 22:28

Todas las respuestas

  • Hola, como para que te des idea:

    Sub EnviarDatos()
    
    Dim IE As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.navigate "http://anbsawl1.aduana.gob.bo:7401/sicoin"
    
    Do Until IE.ReadyState = 4
         DoEvents
    Loop
    
    IE.Visible = True
    
    With IE
         .document.getElementsByName("usuario")(0).Value = "TuUsuario"
         .document.getElementsByName("clave")(0).Value = "TuClave"
         .document.getElementsByName("aduana")(0).selectedIndex = 2
         .document.getElementsByClassName("btn btn-primary btn-block")(0).Click
    End With
    
    Set IE = Nothing
    
    End Sub
    

    Comentas

    domingo, 28 de julio de 2019 22:28
  • Muchisimas gracias amigo por tu respuesta, tengo un problema con el codigo me sale el siguient error, me pudieras seguir colaborando por favor

    


    Brayan

    lunes, 29 de julio de 2019 12:34
  • Solo por si acaso activa las referencias a "Microsoft Intenet Controls" y cambia las dos primeras líneas por estas:

    Dim ie As Object
    Set ie = New InternetExplorer

    Comentas

    Abraham Valencia

    lunes, 29 de julio de 2019 16:14
  • Muchas gracias hermano, me sigue saliendo el error pero en otras maquinas si funciona, al parecer solo es mi maquina, hay alguna otra forma de llegar al mismo resultado?

    Brayan

    lunes, 29 de julio de 2019 19:30
  • Si en la maquina del dilema da error tanto con New como con CreateObjec, es un dilema de tu configuración del IE 11 asociado a la seguridad. Tendrías que quitar el "Modo protegido" y/o probablemente disminuir el "Nivel de seguridad para la zona" de "Alto" a "Medio - Alto" o "Medio"

    Abraham Valencia

    lunes, 29 de julio de 2019 23:26
  • Muchas gracias, problema solucionado

    Brayan

    miércoles, 31 de julio de 2019 21:35
  • Una ultima pregunta, hay alguna manera de elegir con que navegador va a abrir? es q quisiera q abra desde el chrome, y me esta abriendo desde el explorer

    Brayan

    jueves, 22 de agosto de 2019 18:45
  • Estimado Abraham, un gusto volver a saludarte, disculpa recurro a ti por este medio, vi una respuesta tuya en un pagina y por favor necesito su ayuda, pasa que oculte un modulo con un programa, ahora quiero volver a hacerlo visible, por favor si me pudieran enseñar a como hacerlo, por favor si tuvieras algún correo para poder mantener contactarme, muchas gracias de antemano

    Brayan

    lunes, 24 de mayo de 2021 13:24