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.