Problemas con excel
Hola,
estoy desarrollando una aplicacion que abre un fichero excel mete datos en el y despues lo cierra,el problema es que queda abierto un proceso excel que me impide hacer nada con excel hasta que no cierro la aplicacion.Os pego aquí como abro y cierro el archivo excel,espero que alguien me pueda ayudar
thanks
Private xlsFicheroOrigen As Excel.Application
Set xlsFicheroOrigen = New Excel.Application
xlsFicheroOrigen.Workbooks.OpenText rutaFichero
'introduzco los datos en el fichero
xlsFicheroOrigen.ActiveWorkbook.Save
xlsFicheroOrigen.ActiveWorkbook.Close
xlsFicheroOrigen.Quit
Set xlsFicheroOrigen = Nothing
El caso es que desde que lo abro me queda el proceso excel abierto y ya no se cierra hasta que no cierro la aplicacion
Salu2
estoy desarrollando una aplicacion que abre un fichero excel mete datos en el y despues lo cierra,el problema es que queda abierto un proceso excel que me impide hacer nada con excel hasta que no cierro la aplicacion.Os pego aquí como abro y cierro el archivo excel,espero que alguien me pueda ayudar
thanks
Private xlsFicheroOrigen As Excel.Application
Set xlsFicheroOrigen = New Excel.Application
xlsFicheroOrigen.Workbooks.OpenText rutaFichero
'introduzco los datos en el fichero
xlsFicheroOrigen.ActiveWorkbook.Save
xlsFicheroOrigen.ActiveWorkbook.Close
xlsFicheroOrigen.Quit
Set xlsFicheroOrigen = Nothing
El caso es que desde que lo abro me queda el proceso excel abierto y ya no se cierra hasta que no cierro la aplicacion
Salu2
lo que te conviene hacer en este caso es no abrir excel, te escribo el codigo q uso en una d mis aplicaciones, espero q t sirva:
Dim xl As New excel.Application
Dim MiXL As excel.Workbook
Set MiXL = xl.Workbooks.Open("archivo.xls")
'introducis los datos en el fichero refiriendote a las hojas de la siguiente manera
(MiXL.Worksheets(1).Range(Chr(ii) & jj).Value) = "un valor"
MiXL.Close False
Set MiXL = Nothing
Set xl = Nothing
Dim xl As New excel.Application
Dim MiXL As excel.Workbook
Set MiXL = xl.Workbooks.Open("archivo.xls")
'introducis los datos en el fichero refiriendote a las hojas de la siguiente manera
(MiXL.Worksheets(1).Range(Chr(ii) & jj).Value) = "un valor"
MiXL.Close False
Set MiXL = Nothing
Set xl = Nothing