Abrir excel desde VB

[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()

[Ñuño Martínez]

Lo siento, franfi, pero por aquí VB no se estila mucho. Si fuera QuickBASIC aún podría ayudarte yo, pero de VB no tengo NPI.

[franfl]

Muchas gracias Nuño, a ver si encuentro alguna "chapuzilla" para solucionarlo.

[[mightydragonlor]]

Hola no entiendo cual es la necesidad clara que tienes, pero si lo que quieres es leer un archivo de excel y lo que te está generando error es esto:

                If xRango.Value <> Nothing Then
                    aux = xRango.Value.ToString
                End If

lo puedes solucionar con:

           If Not xRango Is Nothing Then
                If xRango.Value <> Nothing Then
                    aux = xRango.Value.ToString
                End If
           End If

[franfl]

Muchas gracias pero me sigue saltando la excepción, es que es difícil explicar el porque hago ese trozo de código, entiendo que las últimas iteracciones del while el excel sigue siendo visible pero la celda, la hoja o el libro ya no existen y por eso me salta el error. La verdad que no soy capaz de soluccionarlo y he probado mil cosas, así que capturo la excepción y no hago nada con ella porque por lo menos el valor de la celda me lo devuelve correctamente asi q.... una pequeña chapuzilla. Muchisisimas gracias

[[mightydragonlor]]

Otra cosa que puedes hacer es convertir el xls a csv y cargarlo a un datatable, yo hice un programa que se encarga de convertir de excel 97-2003 a csv, de esta manera el error se deja de generar.