Ufff. voy a pregunta por dia , espero no importe mi insistencia.
Tengo un grid el cual cargo con datos de un archivo excel. la ruta del archivo la leo de un txt (por si el archivo a cargar cambia de lugar, nombre etc....) y se carga sin problemas. Busco datos, y no hay problema.
El porblema surge si quiero insertar algun dato en una celda: todo el codigo lotengo bien pero me da problema cuando referencio la ruta del archivo: me da erro porque me dice que la ruta no es correcta, locual no entiendo porque la grilla la carga eprfectamente. Por lo que creo , cuando le digo cual es el archivo al que quiero cambiar datos , la ruta que me lee del txt le añade un salto de linea y ese es el error.
Código HTML:
Dim fecha As Date = DateTime.Now
'Leer ruta del archivo excel cargado
Dim fic As String = "C:\RUTA.txt"
Dim sr As New System.IO.StreamReader(fic)
Dim texto, ar1, ar2 As String
[B] texto = sr.ReadToEnd()[/B]
'Variable de tipo Aplicación de Excel
Dim objExcel As Microsoft.Office.Interop.Excel.Application
'Una variable de tipo Libro de Excel
Dim xLibro As Microsoft.Office.Interop.Excel.Workbook
Dim Col As Integer, Fila As Integer
'creamos un nuevo objeto excel
objExcel = New Microsoft.Office.Interop.Excel.Application
'Usamos el método open para abrir el archivo que está _
' en el directorio del programa llamado archivo.xls
xLibro = objExcel.Workbooks.Open(texto)
sr.Close()
Dim Hoja As New Microsoft.Office.Interop.Excel.Worksheet
Hoja = xLibro.ActiveSheet
Fila = 0
Col = 0
'''''''''Escribe en la celda 3,20
Hoja.Cells(3, 20).Value2 = "DATO NUEVO INSERTADO EN LA CELDA 3,20"
'Eliminamos los objetos si ya no los usamos
xLibro.Saved = True
xLibro.Save()
xLibro.Close()
objExcel.Quit()
Dim proceso As System.Diagnostics.Process()
proceso = System.Diagnostics.Process.GetProcessesByName("EXCEL")
'MATO EL PROCESO
For Each opro As System.Diagnostics.Process In proceso
'antes de iniciar el proceso obtengo la fecha en que inicie el
'proceso para detener todos los procesos que excel que inicio
'mi código durante el proceso
If opro.StartTime >= fecha Then
opro.Kill()
End If
Next
objExcel = Nothing
xLibro = Nothing