Cerrar Excel desde V.Basic 6.0
Tengo un proyecto que debe abrir y cerrar una hoja excel.
El problema es que no de saca de la memoria el Excel y hay que hacer CTRL+ALT+SUPR para poder cerrarlo o bien finalizar el problema cosa que no puedo hacer ya que es un proceso intermedio.
Mi código es:
Dim xFich As EXCEL.Application
Set xFich = New Excel.Application
XFich. Workbooks.OpenText "HOJA.XLS" .
.
. (Aquí trato los datos)
.
.
ActiveWorkbook.Close savechanges:=False
xFich.Quit
Set xFich = Nothing
El problema es que no de saca de la memoria el Excel y hay que hacer CTRL+ALT+SUPR para poder cerrarlo o bien finalizar el problema cosa que no puedo hacer ya que es un proceso intermedio.
Mi código es:
Dim xFich As EXCEL.Application
Set xFich = New Excel.Application
XFich. Workbooks.OpenText "HOJA.XLS" .
.
. (Aquí trato los datos)
.
.
ActiveWorkbook.Close savechanges:=False
xFich.Quit
Set xFich = Nothing
Respuesta de menosmola10
1
Si me dices tu email te paso un ejemplo de una hoja Excel que me funciona bien, a ver si ves algo que te pueda servir...
No me sirve.Me sigue dejando en memoria la tarea excel
No sé si esta es la respuesta, pero prueba a hacer un objeto Wookbook y a cerrarlo después, algo así:
Dim xFich As EXCEL.Application
Dim xWB As Woorkbook
Set xFich = New Excel.Application
Set xWB= xFich.Workbooks.Open( "HOJA.XLS")
.
.
. (Aquí trato los datos)
.
.
ActiveWorkbook.Close savechanges:=False
XWB. Close
XFich. Quit
Set xWB = Nothing
Set xFich = Nothing
Dim xFich As EXCEL.Application
Dim xWB As Woorkbook
Set xFich = New Excel.Application
Set xWB= xFich.Workbooks.Open( "HOJA.XLS")
.
.
. (Aquí trato los datos)
.
.
ActiveWorkbook.Close savechanges:=False
XWB. Close
XFich. Quit
Set xWB = Nothing
Set xFich = Nothing
Ya te lo he enviado.
Suerte
Suerte
