Visual Basic - No consigo descargar Excel de la memoria

Life is soft - evento anual de software empresarial
 
Vista:

No consigo descargar Excel de la memoria

Publicado por Miguel (4 intervenciones) el 15/10/2007 10:36:40
Estimados amigos:
Estoy haciendo un programita para crear una hoja excel y meterne algunos datos. Todo me funciona correctamente salvo que cuando acabo de grabar los datos me queda el Excel en memoria y hasta que no termino el programa no se me quita de memoria el EXCEL.EXE. Habría alguna forma de poder quitarlo de la memoria sin necesidad de finalizar la aplicación?.
Os pongo el código que tengo por si a alguno le puede ayudar tambien
Atentamente
Miguel

Dim appExcel As Object
Dim Libro As excel.Workbook
Dim Hoja As excel.Worksheet

Set appExcel = CreateObject("excel.application")
Set Libro = appExcel.Workbooks.Add
Set Hoja = Libro.Worksheets.Add
appExcel.Visible = True

Hoja.Cells(1, 2).Value = "Hola"
Hoja.Cells(1, 3).Value = "Mundo"
Hoja.Range(Cells(1, 1), Cells(1, 2)).Activate
Hoja.Range(Cells(1, 1), Cells(1, 2)).Borders.Color = 1
appExcel.Selection.MergeCells = True
Hoja.Cells(1, 2).Value = "Hola"
Hoja.Range(Cells(1, 1), Cells(2, 1)).Select
appExcel.Selection.MergeCells = True
appExcel.Selection.Font.Bold = True
With appExcel.Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
appExcel.Selection.Value = "MIGUEL"
For nJ = 1 To 10
Hoja.Range(Cells(nJ, 1), Cells(nJ + 1, 1)).Select
appExcel.Selection.Interior.ColorIndex = nJ
Next

' Nos guardara esto en el fichero excel llamado prueba.xls
Hoja.SaveAs "c:\prueba.xls"
appExcel.Quit

Set Hoja = Nothing
Set Libro = Nothing
Set appExcel = Nothing
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder