Uso del control WebBrowser en Excel
Les comparto un ejemplo sencillo de cómo ver páginas Web dentro un libro de Excel, así como visualizar páginas html alojadas en una carpeta.
Para tal efecto utilizamos el control WebBrowse, que en su propiedad Navigate damos la ruta de acceso del archivo html o dirección de Internet.
El objeto en ejecución de mostraría así:
Y aquí el código del botón con su debida explicación:
'--------------------------------------------------------------------------------------- ' Module : UserForm4 ' Author : Sergio A Campos H ' Date : 24/12/2010 ' Purpose : Uso del control WebBrowser '--------------------------------------------------------------------------------------- ' Private Sub CommandButton1_Click() 'En caso de que marque error nos vamos a la etiqueta Errores On Error GoTo Errores 'Valida que la celda tenga datos If ActiveCell = Empty Then MsgBox "Celda vacía", vbCritical, "EXCELeINFO" Exit Sub Else 'Si la celda no tiene datos, valida si el texto ingresado es una página Web If Left(ActiveCell, 3) = "www" Or Left(ActiveCell, 4) = "http" Then Me.WebBrowser1.Navigate (ActiveCell.Value) ' & ".mht") Else 'De lo contrario busca dentro de la carpeta archivos html Ruta = ActiveWorkbook.Path Me.WebBrowser1.Navigate (Ruta & "" & "pages" & ActiveCell.Value) ' & ".mht") End If End If Exit Sub Errores: MsgBox Err.Description, vbExclamation, "EXCELeINFO" End Sub
Nota al lector: Con un poco más de imaginación, podrás hacer tu propio navegador básico, incluyendo una barra de direcciones.
