se me queda Excel cargado en memoria al abrirlo desde VB6

[Vision07]

la primera linea copia la hoja que deseas guardar, las siguientes abren la ventana de windows para guardar el archivo. Para cerrar excel de memoria manten el orden a partir del xlbook.Close, si lo varias se mantiene abierto.
Yo tenía el mismo problema, pero lo solucioné como te indico.




xlsheet.Copy

fname = xlapp.GetSaveAsFilename( _
fileFilter:="Libro de Microsoft Excel (*.xls), *.xls")
If fname = False Then
GoTo NoSaveExcel
Else
On Error GoTo NoSaveExcel
xlbook.SaveAs FileName:=fname
xlbook.Close
Set xlapp = Nothing
Set xlsheet = Nothing
Set xlbook = Nothing
MsgBox "El Reporte se guardó satisfactoriamente", vbInformation, "Reportes EXCEL"
End If

Exit Sub
NoSaveExcel:
xlbook.Close savechanges:=False
Set xlapp = Nothing
Set xlsheet = Nothing
Set xlbook = Nothing
MsgBox "El Reporte no fué guardado", vbInformation, "Reportes EXCEL"