VBA Access: Abrir dirección web en navegador predeterminado
Es sabido que Internet Explorer desaparecerá pronto de manera definitiva y mi código no puede depender de si está o no instalado para navegar por la web a la que vinculo.
Entonces lo que preciso es algún código que me permita hacer clic en un botón que 'buscará' el textbox con la URL a la que deberá acceder pero lo hará en el navegador predeterminado EN Windows y no DE Windows. Si es Chrome el que el usuario escogió, se hará en él. Si es Firefox, será en ese.
El código con el que me he estado manejando es este:
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.MenuBar = False
.AddressBar = False
.StatusBar = False
.Toolbar = False
.Navigate txtWeb
.Visible = True
End With
Set objIE = Nothing(txtWeb es el text box con la URL).
¿Hay alguna forma (¡Y que funcione!) De que se abra en otro navegador? Ya busqué pero no me han funcionado.
Por caso tengo:
Dim vEnlace As String vEnlace = "http://www.google.com" WebBrowser1.Navigate enlace ActiveWorkbook.FollowHyperlink Address:=enlace, NewWindow:=True
¿Alguna ayuda?
1 respuesta
Sasha: De acuerdo a lo que yo sé, si lo que quieres es que un Página Web, se abra con el Navegador predeterminado, no necesitas nada.
Si pulsas en el hipervínculo, o lo buscas en algún evento ya se abre directamente en el Navegador que tengas configurado como predeterminado.
Otro tema es que de modo concreto quieras abrir una dirección con Firefox en concreto.
El código sería algo así:
'Un botón que se llame BtnAbrePag Private Sub BtnAbrePag_Click() AbreFireFoxEnPag "http://www.todoexpertos.com/temas/microsoft-access" End Sub 'Este sería el Procedimiento Sub AbreFireFoxEnPag(LaURL As String) Dim RutaFireFox As String RutaFireFox = "C:\Program Files (x86)\Mozilla Firefox\Firefox.exe" If Dir(RutaFireFox) = "" Then RutaFireFox = "C:\Program Files\Mozilla Firefox\firefox.exe" If Dir(RutaFireFox) = "" Then MsgBox "No se ha encontrado la Ruta de FireFox Informada", vbCritical, "Proceso Terminado" Exit Sub End If Shell """" & RutaFireFox & """" & " ******** " & LaURL, vbHide End Sub
Mis saludos >> Jacinto
