como logearse a una pagina web desde excel...

08/04/2008 - 12:53 por Ana | Informe spam
sHola,

Alguien sabe como hacer para logearse a una pagina web desde el codigo de
excel.
he probado distintos codigo que he encontrado en internet pero todavia no he
tenido exito

el codigo que uso es el siguiente:

Sub login()
Dim ieApp As Object
Dim objBox As Object
Dim objBox1 As Object

Set ieApp = CreateObject("InternetExplorer.Application")
ieApp.Visible = True
ieApp.navigate
("https://www.bernstein.com/Reports/Summary.aspx?nid8&relid”565692")
Do While ieApp.busy
DoEvents
Loop
On Error Resume Next
Do While objBox Is Nothing
Set objBox = ieApp.document.getelementbyid("UserName")
DoEvents
Loop
objBox.Value = Range("A" & CStr(ActiveCell.Row)).Value
Set objBox1 = ieApp.document.getelementbyid("password")
objBox1.Value = Range("B" & CStr(ActiveCell.Row)).Value


End Sub

el user name y la password las tengo en la celda A1 y B1
con este codio logro escribir el user y la password pero nada mas , no se
abre la pagina que quiero. Alguien tiene una idea de como solucionar el
problema u otro codigo que funcione?

muchas gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
08/04/2008 - 15:34 | Informe spam
hola, Ana !

Alguien sabe como hacer para logearse a una pagina web desde el codigo de excel.
he probado distintos codigo que he encontrado en internet pero todavia no he tenido exito (...)
el user name y la password las tengo en la celda A1 y B1 con este codio logro escribir el user y la password pero nada mas
no se abre la pagina que quiero. Alguien tiene una idea de como solucionar el problema u otro codigo que funcione?



revisa la siguiente conversacion: -> http://tinyurl.com/4h2mxj
incluye una sugerencia para primero loggear con user=... password=... y un action=Login
y despues abrir la pagina o seccion que necesitas ;)

saludos,
hector.

__ el codigo expuesto __
el codigo que uso es el siguiente:
Sub login()
Dim ieApp As Object
Dim objBox As Object
Dim objBox1 As Object
Set ieApp = CreateObject("InternetExplorer.Application")
ieApp.Visible = True
ieApp.navigate
("https://www.bernstein.com/Reports/Summary.aspx?nid8&relid”565692")
Do While ieApp.busy
DoEvents
Loop
On Error Resume Next
Do While objBox Is Nothing
Set objBox = ieApp.document.getelementbyid("UserName")
DoEvents
Loop
objBox.Value = Range("A" & CStr(ActiveCell.Row)).Value
Set objBox1 = ieApp.document.getelementbyid("password")
objBox1.Value = Range("B" & CStr(ActiveCell.Row)).Value
End Sub
Respuesta Responder a este mensaje
#2 Abraham
08/04/2008 - 19:22 | Informe spam
Solo una cosita, no se si es el Firewall de mi servidor de internet,
pero este enlace:

http://tinyurl.com/4h2mxj

no me abre nada :( alguna otra opcion? me quede con la
curiosidad :p

Abraham
Respuesta Responder a este mensaje
#3 Héctor Miguel
08/04/2008 - 19:37 | Informe spam
hola, Abraham !

Solo una cosita, no se si es el Firewall de mi servidor de internet, pero este enlace: http://tinyurl.com/4h2mxj
no me abre nada :( alguna otra opcion? me quede con la curiosidad :p



la direccion completa ?... (ojo con los saltos de linea)

http://groups.google.com.mx/group/m...1997684fea

saludos,
hector.
Respuesta Responder a este mensaje
#4 Abraham
08/04/2008 - 20:02 | Informe spam
Graciela, si me referia a la direccion completa :)

Abraham
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida