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
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:
- Haz clic en el menú de Chrome file://storage.googleapis.com/support-kms-prod/4003BF51063E6DC3E65713AE5B50EE797EE6 en la barra de herramientas del navegador.
- Selecciona Configuración.
- 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:
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.
