[SOLUCIONADO] WebBrowser a veces no funciona, vb 2008

[DjNelson]

Tengo un formulario que al pulsar un botón genera una serie de ficheros en excel y los abre en un nuevo formulario que contiene un TabControl (pestañas) y en cada pestaña añado un WebBrowser con el que abro cada fichero.

El caso es que algunas veces alguno de los ficheros no se ve, nunca me dá ningún error a pesar de que probé a controlar los errores con un try... catch:

Código PHP:

  Private Sub FrmWebBrowser_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
 
//Mostramos un excel por cada fecha distinta 
For Each row As DataRow In SeleccionaDistintos(Ds.Tables("Datos"), "Fecha").Rows 
 
Dim ExcelMio As New Excel.Application 
Dim objLibroExcel As Excel.Workbook 
Dim objHojaExcel As Excel.Worksheet 
objLibroExcel = ExcelMio.Workbooks.Add() 
 
//No pongo el código que genera el excel ya que es extenso 
 
 Dim Ruta As String = Application.StartupPath & "\Temp\Recogidas_" & row("Columna").ToString.Replace("/", "-") & "_" & Today.Date.ToShortDateString.Replace("/", "") & Now.Hour & Now.Minute & Now.Millisecond & ".xls" 
                        objLibroExcel.SaveCopyAs(Ruta) 
 
objLibroExcel.Close(False) 
objLibroExcel = Nothing 
//Cerramos el proceso 
ExcelMio.Quit() 
ExcelMio = Nothing 
 
If NumTabs = 1 Then 
       Me.TabPage1.Text = row("Columna") 
       Me.TabPage1.Tag = Ruta 
       Me.WebBrowser1.Navigate(Ruta) 
Else 
       //Añadimos una pestaña por cada listado 
       Dim Tab As New TabPage 
       Tab.Text = row("Columna") 
       Tab.Tag = Ruta 
 
       Dim WB As New WebBrowser 
       WB.Dock = Me.WebBrowser1.Dock 
       WB.Navigate(Ruta) 
       Tab.Controls.Add(WB) 
       Me.TabControl1.TabPages.Add(Tab) 
End If 
 
NumTabs += 1 
 
next  
   

¿A alguien se le ocurre cómo hacer que el webbrower muestre SIEMPRE el excel?

Saludos.

[julioc6969]

Bueno, ten en cuenta las siguientes consideraciones que Microsoft da para el uso del WebBrowser:

Debe tener en cuenta lo siguiente al utilizar el control WebBrowser:
El control WebBrowser examina los documentos de forma asincrónica. Cuando llama a WebBrowser1.Navigate, la llamada devuelve el control a la aplicación de Visual Basic antes de que el documento se haya cargado completamente. Si piensa utilizar Automatización en el documento contenido, tendrá que utilizar el evento NavigateComplete2 para que se le notifique cuándo se ha terminado de cargar el documento. Utilice la propiedad Document del objeto WebBrowser que se pasa para obtener una referencia del objeto de documento de Office, que en el código anterior está establecido como oDocument.
El control WebBrowser no permite la combinación de menús.
El control WebBrowser suele ocultar todas las barras de herramientas acopladas antes de mostrar un documento de Office. Puede utilizar Automatización para mostrar una barra de herramientas flotante con código como el que se muestra a continuación:
With oDocument.Application.CommandBars("Standard")
.Position = 4 '[msoBarFloating]
.Visible = True
End With

Las versiones más recientes de Internet Explorer (5.0 y posterior) también le permiten mostrar barras de herramientas acopladas con el código siguiente:
' This is a toggle option, so call it once to show the
' toolbars and once to hide them. This works with Internet Explorer 5
' but often fails to work properly with earlier versions...
AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HID ETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER )

Se conoce la existencia de algunos problemas derivados de tener más de un control WebBrowser en un proyecto y de tener cada control cargado con el mismo tipo de documento de Office (por ejemplo, documentos de Word u hojas de cálculo de Excel) Se recomienda utilizar sólo un control por cada proyecto y buscar sólo un documento cada vez.

El problema más común se produce con las barras de comandos de Office, que aparecen deshabilitadas. Si tiene dos controles WebBrowser en el mismo formulario, ambos cargados con documentos de Word, y desea mostrar las barras de herramientas con una de las técnicas anteriores, sólo estará activo y funcionará correctamente un conjunto de barras de herramientas. El otro estará deshabilitado y no se podrá utilizar.
Para borrar el contenido actual de WebBrowser, en el evento Click de otro botón de comando (o en algún otro lugar apropiado del código), busque la página en blanco predeterminada con el siguiente código:
AxWebBrowser1.Navigate("about:blank")

Referencia::
http://support.microsoft.com/kb/304643/es