Macro que permita ejecutar Navegador predeterminado.

En esta oportunidad solicito tu ayuda en lo siguiente:

Tengo un formulario que me funciona bien en Navegación, con sus botones de anterior, siguiente y demás.

El problema radica en que cada vez que llamo la ejecución del formulario llamado "Navegador" desde un "Botón de Comando" dispuesto en un formulario de panel de control, se ejecuta pero con el Navegador "Internet Explorer"; lo que necesito es que se ejecute con el navegador predeterminado sea "Google", "firefox", "Opera", "Safari" u otros.

1 Respuesta

Respuesta
2

Prueba si con esta instrucción abres el navegador de google

Sub AbrirGoogle()
    enlace = "http://www.google.com"
    ActiveWorkbook.FollowHyperlink Address:=enlace, NewWindow:=True
End Sub

Establecer google Chrome como navegador predeterminado:

Si te gusta el funcionamiento de Google Chrome, hazlo tu navegador predeterminado. De esa forma, cuando hagas clic en un vínculo, se abrirá de forma automática en Google Chrome. Para establecer Google Chrome como navegador predeterminado, sigue estos pasos:

  1. Haz clic en el menú de Chrome en la barra de herramientas del navegador.
  2. Selecciona Configuración.

  1. En la sección "Navegador predeterminado", haz clic en la opción Establecer Google Chrome como navegador predeterminado.

Usuarios de Windows 8: para abrir Chrome como una aplicación de Windows 8 desde la pantalla de inicio, sigue las instrucciones anteriores y establece Chrome como navegador predeterminado. Más información sobre las aplicaciones de Windows 8

Fuente:

https://support.google.com/chrome/answer/95417?hl=es-419 

Dam, primero que todo muchas gracias por tu respuesta rápida y ágil.

Lo que necesito es que en el formulario llamado Navegador dentro del control WebBrowser1 aparezca el contenido de la página solicitada, usando dentro del mismo el navegador predeterminado y no el Internet Explorer, pués como es sabido IE cuenta con muchos errores de compatibilidad con muchos portales web.

Dam, con éste código te harás una idea de lo que deseo, pues necesito que en el control WebBrowser salga lo solicitado y no en el Navegador web como tal.

ejecuta por favor el código anexo dentro de un formulario para que veas lo molesto que es con los errores de "script"

Muchas gracias.

Option Explicit
Dim enlace As String
Dim bClick As Boolean
Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
        enlace = TextBox1.Text
            WebBrowser1.Navigate enlace
    Else
        enlace = "http://www.secretariasenado.gov.co"
            WebBrowser1.Navigate enlace
    End If
End Sub
Private Sub UserForm_Initialize()
Me.Height = Application.Height
Me.Width = Application.Width
    enlace = "http://www.secretariasenado.gov.co"
    WebBrowser1.Navigate enlace
End Sub

No puedo ejecutar el código que me enviaste, tal vez me falta algún componente.

Pero eso lo tienes que arreglar desde la configuración de tu navegador. Tal vez tengas que des-instalar el explorer, en el pantel de control, en Agregar o quitar programas. Y después seguir las instrucciones para hacer a google como tu navegador predeterminado.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas