Login en una web desde excel
Hasta hace unos días me conectaba a una pagina web para descargar unos datos haciendo previamente login sin ningún problema.
Para esto utilizaba la siguiente macro:
Sub Login()
'
Sheets("Hoja1").Select
Const nick = "mi user"
Const pass = "mi clave"
For Each Q In ActiveSheet.QueryTables
Q.Delete
Next Q
ActiveSheet.Cells.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.invertironline.com/User/doLogin", _
Destination:=Range("$A$1"))
.PostText = "Username=" & nick & "&Password=" & pass
.Refresh BackgroundQuery:=False
End With
End Sub
Pero resulta que la pagina para ingresar:
https://www.invertironline.com/User/doLogin
ya no esta disponible y la remplazaron por la siguiente:
https://www.invertironline.com/User/Login
El problema es que ya no puedo hacer login y descargar los datos.
En principio las dos páginas son iguales, mirando el código fuente, aclaro que no soy un experto solo le eche una mirada, pero algo cambio y es lo que me produce el problema.
Si alguien me lo podría solucionar voy a estar eternamente agradecida.
1 respuesta
Cambié la URL, prueba con esta macro
Sub Login()
'
Sheets("Hoja1").Select
Const nick = "mi user"
Const pass = "mi clave"
For Each Q In ActiveSheet.QueryTables
Q.Delete
Next Q
ActiveSheet.Cells.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.invertironline.com/User/Login", _
Destination:=Range("$A$1"))
.PostText = "Username=" & nick & "&Password=" & pass
.Refresh BackgroundQuery:=False
End With
End SubS a l u d o s . D a n t e A m o r
Si es lo que necesitas.
Hola Dante:
Lo primero que hice fue remplazar la dirección Web en la macro, pero no funciona. Hay algo que ha cambiado en la página y no se que.
Cambia esta línea
.PostText = "Username=" & nick & "&Password=" & pass
Por esta:
.PostText = "username=" & nick & ",password=" & pass
También intenta con esta:
.PostText = "username=" & nick & " password=" & pass
