Objeto internetexplorer.application con excel 2010
publicado
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
Featured Replies
Archivado
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