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
 

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

Preguntas similares