[franfl]

Buenas, llevo atascado unos días en este problemilla. Desde un botón que tengo abro un excel, y obtengo el valor de una celda en concreto y la voy guardando en una variable para después mostrarlo en mi pantalla. Consigo traer ese valor pero me sale la siguiente excepción "Excepción de HRESULT: 0X800A01A8", y no consigo quitarla. Creo que el problema puede venir porque al final aunque el while (objExcel.Visible) se cumple intento acceder a una celda que ya no existe, no se si me explico bien.... A ver si alguien me puede ayudar porque no se me ocurre mas pruebas que hacer. Muchisimas gracias

Dim aux As String
        Dim objExcel As Excel.Application
        Dim xLibro As Excel.Workbook
        Dim xHoja As Excel.Worksheet
        Dim xRango As Excel.Range

        objExcel = New Excel.Application
        xLibro = objExcel.Workbooks.Open("Z:\GESTION\COPIAS DE EXPEDIENTE\TABAL CALCULO Nº documentos copias expediente.xls")
        xHoja = xLibro.Worksheets(1)
        xRango = xHoja.Range("E18")
        objExcel.Visible = True

        While (objExcel.Visible)
            Me.Enabled = False
            Try
                If xRango.Value <> Nothing Then
                    aux = xRango.Value.ToString
                End If
            Catch exc As Exception
                'MessageBox.Show(exc.Message)
            End Try
        End While

        'xRango.ClearContents()
        objExcel.Quit()