Saltar al contenido

Abrir link desde Excel VBA


Recommended Posts

Buen Día Comunidad,

Espero me puedan apoyar, tengo la siguiente macro que me habre un link  mediante un ribbon a través del navegador internet  explorer y funciona, solo que quiero en caso  de tener abierto,  lo habra sobre el que ya se encuentra abierto,  en una nueva pestaña,

 

Sub ejemplo(Matriz As IRibbonControl)
Set WebUrl = CreateObject("InternetExplorer.Application")
    WebUrl.Navigate "https://ayudaexcel.com"
    WebUrl.Visible = True
End Sub

 

Quedo al pendiente y agradezco de su apoyo,

Enlace a comentario
Compartir con otras webs

Hola

Uno de los dilemas de Internet Explorer es que no permite interactuar con la aplicación ya abierta a través de "GetObject" por lo que hay que buscar otras formas de hacerlo. Tengo una UDF que sirve para ello, lamentablemente la tengo en un archivo del "baúl de recuerdos" pero no anoté el nombre del autor. Igual la comparto:

Function GetIE() As Object
'return an object for the open Internet Explorer window, or create new one
  For Each GetIE In CreateObject("Shell.Application").Windows() 'Loop to find
    If (Not GetIE Is Nothing) And GetIE.Name = "Internet Explorer" Then Exit For 'Found!
  Next GetIE
  If GetIE Is Nothing Then Set GetIE = CreateObject("InternetExplorer.Application") 'Create
  GetIE.Visible = True 'Make IE window visible
End Function

Luego, el código para usar el IE ya abierto y todo en una nueva pestaña, sería el siguiente:

Dim ie As Object
Set ie = GetIE  
ie.Navigate "https://www.google.com.pe", CLng(2048) 
Set ie = Nothing 

Listo.

Abraham Valencia

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.