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
Código:
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()