Estoy desarrollando un proyecto que consiste entre otras cosas el poder interactuar con una página web utilizando para ello excel y VBA para aplicaciones.
Al momento de "setear" checo el valor de mi variable oBrowser y arroja como valor:
"error de automatizacion"
¿Donde puede estar el error?
Este es mi código:
Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_2_Website()
Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "https://hotmail.com"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True
Do
' Wait till the Browser is loaded
Loop Until oBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.Document
HTMLDoc.all.Ecom_User_ID.Value = "dfdf" 'Range("ReceptorNOM").Value
HTMLDoc.all.passwd.Value = "*****"
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next
' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Debug.Assert Err = 0
Err.Clear
Resume Next
End If
End Sub
Adjunto imagen de las referencias que tengo activas en el proyecto:
Muchas gracias por tu atención, y si, estan activadas te envio imagen de las referencia que tengo activas en el proyecto