Jesus:proba con estos métodos. A mi me funcionaron bien....Cualquier cosa
avisame, hace mas de dos años que tengo esta clase funcionando sin
inconvenientes...
Abrazo
Diego


Public Sub MatarApp()

Dim proceso As System.Diagnostics.Process()

proceso = System.Diagnostics.Process.GetProcessesByName("EXCEL")

For Each opro As System.Diagnostics.Process In proceso

opro.Kill()

Next

End Sub

--------------------------------------------------------------------------------------------------------------------------------------------------------------------

Public Sub close()

Me._ExcelWorkSheet = Nothing

Me._ExcelWorkBook.Close()

Me._ExcelWorkBook = Nothing

Me._ExcelApplication.Quit()

Me._ExcelApplication = Nothing

End Sub


El 7 de julio de 2011 13:13, Jesús dos Santos <[email protected]>escribió:

>  Muchas gracias por las respuestas, pero me sigue dejando en memoria igual
> el Excel.****
>
> ** **
>
> ** **
>
> *De:* [email protected] [mailto:[email protected]] *En nombre de *Luis
> Eduardo Duarte
> *Enviado el:* miércoles, 06 de julio de 2011 15:20
> *Para:* vbnet List Member
> *Asunto:* [vbnet] excel con vb.net****
>
> ** **
>
> Hola Jesús, prueba con:****
>
> ** **
>
>         libro.SaveAs(nuevo & ".xls")
>         libro.Close()
>         oExcel.Quit()
>
>         System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
>         oExcel = Nothing
>
>         GC.Collect()
>         GC.WaitForPendingFinalizers()
>         GC.Collect()****
>
> ** **
>   ------------------------------
>
> *From:* Jesús dos Santos <[email protected]>
> *To:* vbnet List Member <[email protected]>
> *Sent:* Tuesday, July 5, 2011 10:09 AM
> *Subject:* [vbnet] excel con vb.net****
>
> Buenas tardes lista, saben que estoy llenando una hoja Excel con datos
> desde vb.net, pero lo que veo es que cuando finalizo, me queda el Excel
> abierto en memoria, alguien tiene idea de cómo hacer para cerrarlo? Les paso
> el código que estoy usando****
>
>     Dim oExcel As New Microsoft.Office.Interop.Excel.Application****
>
>         Dim libro As Microsoft.Office.Interop.Excel.Workbook****
>
>         Dim hoja As Microsoft.Office.Interop.Excel.Worksheet****
>
>         libro = oExcel.Workbooks.Open(archivo)****
>
>         hoja = libro.Worksheets(1)****
>
> .****
>
> .****
>
> .****
>
> .****
>
> .****
>
> Al finalizar hago todo esto y nada…****
>
>   libro.SaveAs(nuevo & ".xls")****
>
>         libro.Close()****
>
>         oExcel.Quit()****
>
>         GC.Collect()****
>
>  ****
>
> Muchas gracias.****
>
>  ****
>
> ** **
>



-- 
Diego Spinedi

Responder a