Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas a todos,
Soy nuevo en el foro, tengo el siguiente código que me funciona perfectamente en versiones anteriores a Excel 2010 (para hacer login en una página web, no puedo indicarla por razones de seguridad), sin embargo, soy incapaz de hacer que funcione para esta versión de office. Más concretamente me da error cuando entra en "ie.Document", ¿alguien me podría decir cómo hacer que funcione?
Código:
Private Sub WEB_Click()
Dim ie As Object
Dim login_name
Dim password
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate "**URL**"
.Visible = 1
Do While ie.Busy
Loop
End With
Do While ie.Busy
Loop
With ie.Document
DoEvents
Application.Wait Now + TimeValue("00:00:01")
.all("user").Value = Range("D1")
.all("password").Value = Range("D2")
Application.Wait Now + TimeValue("00:00:02")
End With
Set ie = Nothing
End Sub