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í:

image

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.

:: Descarga el ejemplo EXCELeINFO – Control WebBrowser.zip

You may also like...

3 Responses

  1. Seba says:

    Muchas gracias estaba buscando como se usaba!!!

  2. antonio says:

    una consulta….como se evita que haciendo clic en un link en la hoja excel abra directamente I.E. en vez de mostrar la pagina en el webbrowser???
    gracias

Leave a Reply

Your email address will not be published.

%d bloggers like this: