CreateObject

Como ya sabemos por anteriores post  (Comunicación con Outlook y  COMPRIMIR ARCHIVOS) la función CreateObject nos sirve para crear y devolver una referencia a un objeto ActiveX.

En este caso utilizaremos esta función para abrir Internet Explorer e ir a la dirección que le indiquemos.

Asignamos el objeto (Internet Explorer) a una variable de objeto.

Utilizamos la referencia ExApp para tener acceso a la propiedad Visible de Internet Explorer  y después utilizamos el método Navigate  para ir a la dirección indicada por nosotros. Finalmente se libera la referencia.

Sub GetInternetExplorer()

Dim ExApp As Object

On Error GoTo Error

Set ExApp = CreateObject("InternetExplorer.Application")

    With ExApp

        .Visible = True

    End With

    With ExApp

        .Navigate URL:="http://vbaparaaplicacionesexcel.blogspot.com.es/"

    End With 

Error:

Set ExApp = Nothing

On Error GoTo 0

End Sub